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INTRODUCTION 


This book was written with a sense of excitement, a sense of excitement 
which will transmit itself to you the momentyou getthefirst program up 
and running. 

From Caverns of Terror and Tunnels of Thar to Warlock’s Castle, you’ll 
find here a satisfying collection of challenging games foryour Commo¬ 
dore 64. 


Whether you’re looking for shoot-em-ups, alien-blasters, outwit-the- 
machines or other games, you’ll find them here, just itching to get off 
the printed page and into your micro. 

It’s about time you caught the sense of excitement, and gave way to the 
urging of the games. 

Time to start playing, and start enjoying, some great games on your 
Commodore 64. 

Tim Hartnell, 

Melbourne, 1983 
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RABBIT TRAP 


In this game the computer will try to trap you, a frightened rabbit, by 
placing obstacles in your path, finally boxing you in so that you can’t 
move. The object of the game is to keep running for as long as possible. 
Your score at the end of the game is related to how long you remained 
free. 

To move your rabbit use the “A” key to move up and the “Z” key to move 
down the screen. The comma and the full stop keys move the rabbit left 
and right respectively. 

Lines 1000 to 1050 GET your input from the keyboard and increment 
your position on the screen. Lines 1060 to 1090 check your position 
each turn to see if you are surrounded by obstacles, if F equals one 
you are trapped and the program goes to line 2000. You are then told 
your final score. 

Line 1100 increments your score each time the program goes through 
the loop which moves you about the screen. The location of the 
obstacles is picked in line 1110. The second statement in this line 
prevents an obstacle from being POKEd into a spot already occupied 
or into one of the walls around the playing area. Line 1130 POKEs the 
obstacle onto the screen. 


10 REM RABBIT TRAP 
pPi fiORUB 3000 

30 POKE 53280,6:POKE 53281,8 
1000 GET fl$ ; IF THEN R$=B$ 

1010 E=C : Q=S 

1G20 IF A$="." THEN S=S+1:C=C+1 
1030 IF fi$="," THEN 8=8“1 : C-C-1 
1040 IF Rf="A" THEN S=S-40=C=C-4@ 
1050 IF THEN S'=S+40 : 0=0+40 

10F0 !,i=PEEK (' S > • F=@ 

1O70 IF W-102 THEN C=E= 8=0. 

1075 IF PEEK02+40!? = 102 THEN F=F+.25 

1076 IF PEEK(Q-40)=102 THEN F=F+.25 

1077 IF PEEK02~1> = 102 THEN F=F+„25 

1078 IF PEEK-::Q+l> = 102 THEN F=F+„25 
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1090 IF F=1 THEN 2009 
110 R 3f:=sr.+ i 

1110 H=1024+1NT <578$RNB<1>):IF PEEK<H) = 102 
THEN 1110 

1120 J=H+54272 

1 1.90 pnKF H . 1 09 : PflKE T • R 

1200 POKE E,1 

1210 POKE 0,2 

1.215 POKE 3,88 

1220 

1230 GOTO 1000 

2090 FOR BB=1 TO 2090 : WENT BB 

2010 PRINT "T :REM CLEAR SCREEN 

2020 POKE 53280,5:POKE 53281,2 

2030 PRINT "MeMisifllC!" TAB(15> "XflUGHT VOU" ■ 

REM ORANGE 

2040 PRINT "MC TflB(ll) "EfrOU SCORED" 18C$236 : 

REM LT BLUE 
2059 GOTO 2050 

9000 PRINT "□":REM CLEAR SCREEN 

3010 P0KF 53280,0 ; POKE 53281,4 

3020 PRINT TAB(7) "l##### RABBIT TRAP 

#####":REM BLACK 

3030 FOR BB-l TO 2000 : NEXT 
3035 PRINT "2!" : REM CLEAR SCREEN 
3040 S=1110:0=5+54272 

3059 B$="." 

3060 FOR 00=1024 TO 1063 : POKE 00,102 : POKE 00+54272, 
1=NEXT 

3070 FOR 00=1584 TO 1623:POKE GO,102:POKE 00+54272, 
1:NEXT 

3080 FOR 00=1964 TO 1544 STEP 40:POKE GO,102:POKE 
00+54272,1:NEXT 

3890 FOR 00=1103 TO 1583 STEP 40:POKE 00,102:POKE 
00+54272,1:NEXT 
3100 RETURN 
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PLAGUE SPOT 


This game combines moving graphics and a random number generator 
to present you with an interesting challenge. The program begins by 
drawing a border around the screen (lines 40 to 80) then places 125 
black or white plague spots on the screen. This is done by the routine in 
lines 120 to 150. The FOR/NEXT loop cycles through the random 
number generator in line 130. This number is used for the screen 
location of a plague spot. The random number generator in line 140 
determines whether the spot will be white or black. 

You then appear on the screen near the top left hand corner, you are 
represented by a purple “Clubs” symbol. You have to run from your 
starting position at the top of the screen to the gate at the bottom right 
hand corner of the screen. Along the way you have to avoid running 
into plague spots or the wall around the screen. Colliding with the wall 
or a plague spot will result in ten points being added to your score. The 
aim of the game is to cross the screen with as low a score as possible. 
To make your task even more difficult lines 230 and 240 continue to 
place plague spots on the screen during the running of the game. 

You control your little figure on the screen with four keys on the 
keyboard. On the left of the keyboard, the “A” key moves your man up 
the screen and the “Z” key moves him down. On the right of the key¬ 
board, the keys with the greater than and less than symbols are used 
for moving right and left respectively. 

Line 110 sets the starting position of your little man. Lines 170 to 210 
accept your input from the keyboard, make the necessary adjustment 
to your position and then use PEEK to see if you have run intoaplague 
spot or a wall. 

Lines 215 and 216 stop you from accidentally running off the screen. 
The PEEK in line 219 checks to see whetheryou have hit the exit gate 
at the bottom of the screen. 

The routines from line 1000 to line 1510 are called up afteryou run into 
a wall or a plague spot. They call up the sound routine, prevent your 
man from moving onto the plague spot or through the wall and also 
increment your score. 
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5 REM FLRGUE SPOT 
10 603UB 6500 
15 HS=99S999 _ 


20 

pp *f j-.jj 51 

i-rnn . 

REM C 

LEFlR 

SCREEN 


•“itr 

Pfi!\ F p O 

280 

.. .0 • PO 

\.;'P *~ 

3281, 




C; r-pi 







•~«cr 

9 • J 

plr — n is 







40 

Pfjp pp:;;: 

102 

4 TO 

1 ppv 

: POKE 

PP,81‘POKE 

PP+54272 , 8 


NEXT PP 







r “;H 

PPP Ppr:- 

1 0g 

4 TO 

1944 

STEP 

40 • POKE PP, 

81•POKE 


PP+5427 

• 7 * 0 

: NEXT 

PP 





COP Dp — 

j 1 0 

3 TO 

1 983 

STEP 

40-POKE PP, 

81 • POKE 


PP+5427 

0 P 

• NEXT 

PP 




70 

FOR PP~ 

198 

4 TO 

POPP 

: POKE 

PP, 81 : POKE 

PP+54272, 8• 


NEXT PP 







O Ci 

pnp pp-' 

202 

1 TQ 

2923 

: POKE 

PP, 121 : POKE 

PP 4 - 5 4 P72, 1 


• NEXT PP 


110 St*1066 

120 FOR T=i TO 125 

190 2" 1070+ T H7 91 0if:PHTi , 1 

140 POKE Z..81 ; POKE Z+54279 

150 NEXT f.. .. 

160 W=SL 
170 GET fit 

175 IF s”!7 < 7 1 * 0 11 Of-.jf! p :t "> 11 7 " 


INT(2*RNB<1}) 


AND " RHB Rf<> 


THEN R$=B$ 


H 


II 


1 7F 







1 HP 

IF fiP 

= "," THEN SL* 

SL+1 : 

IF 

PEEK (SL)- 

:P1 THEN 


GOSUB 

1000 





’j 90 

TF 

u S H THFN P! -r. 

SL.-4. : 

T F 

PEEK <. SL > * 

81 THEM 


GOSUB 

1100 






IF R$ = 

=’"Z" THEN SL* 

SL+40 

•• IF 

PEEK <SL> 

*81 THEN 


GOSUB 

1200 





210 

IF R$: 

" a ii THEN 9! = 

SL-40 

: IF 

PEEK <SL> 

=81 THEN 


GOSUB 

1300 





^ c; 

X 

TP C;! •: 

Cl024 THEN SL 

*1024 




216 

if sl: 

>2023 THEN SL 

*1024 
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p IQ jp pppp/C;| Vi THEM GOTO 5000 

pqr; s 7 r p-r / q i q-. ? fcp|...|p / i '•» 

pnpp 1 ppp-t-.T , Pi : Pfik'P i 0pp..i..p42724.,T •. T}*,jT < ?$RHD( t ) > 

q nn-rn ~ q 


1 Ppp GfV-:! I P ppqn 
1010 Pi --1 

1 ppp C; r; C 4 . •? 

'? }7i :p !~ H T!“} •! {“•; p. 

1 1 pp jp ppjPq 

1 1 10 PL :-3L. f 1 
1 IPG GOTO 1 ERG 

1 pqp GOP! jp Pfipq 
•jPlR P! -P: ■-4R 


•| o ;~p GHTf! 1 PGP 
1 PPR GmPI !P p q ?“j iT-j 

IPIfl P! -p! j-,dH 

1 320 SC-SC*1 

•j pnp pPTj-JT !! i^^PpnpP : !! ; i P^pp ; PCM HOME GMT TP 
1 p n 5 T r P r “;■ P P T j-j p Kj P fi j/j p\ 

i p. 1 “j ppTj IpV.I 

ERPR Pfi.P 'nTf—i Tf? ■~‘RRR: MPVT TlTi 
591 0 PR‘[NT 11 n n : p r m r! p pp;' pr pppki 
5020 jr.*ni/p Gqqpp ; p ; pnj/p cjppq-j 4 

r~ n q q P p T !•..! T •’» n * F? P M P j j O C; n p p. fj!>.! M 

504 3 pfjp pprr 1 TO 80 • PR I NT !! fiSS" CHPT< j 68 *’• : : NEXT PP : 

REM RED 


urprrp rp qr.“LiC; Tj.-jpj.! jJC: : -C;p 

5 Ggri Pp j n r »*» -m I s 11 > tRB ( 1.0 > !! VQ! jR P 00 RE WFlS ! ’; 10 * 8 C : 

REM LT GREEN 
EG7P PRINT 

PP00 PRINT TAB8> n jUTHEN BEST SO ERR IS”; 1@*H8 : 
REM VELLOW 

cr; ppTMT* 

PPPR pnp pp ::r .: i To pr : pp t NT r$ n CHRT (166) * : NEXT PP 
REM RED 

^ i pp rnp rjp :=r -j t rj 30 ?7?g ; fj ek;t 7 ;rj 

5110 ‘GOTO 20 

;Cl“li“i pfiMP ;- r ? 42P6,1 E 
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70 i r, Pfjj/p P 4977 ; 17* Pfik'P P4v7p s | 7 

6030 POKE 54276;17 

6040 POKE 54273 • 30 : POKE 54272,1.26 

605O FOR DB-l TO 15 : NEXT DP 

6060 POKE 54276.=8 : POKE 54277,0 * POKE 54270-0 

7070 Dr*T! !pk! 

650O PRINT "!T : REM CLERR SCREEN 
7717 pru:'F R22PQ . 1 : Pf«KF 70 9 pi ,0 

6520 PRINT : REM CURSOR BONN 

6530 PRIMT TRB < 14> ' 1 $pL.R0UE 3POT" -REM REV 0M 

•6540 POKE 54206; 15 

6550 14-54276 : fl-54277 • 8~54273 

7^70 1^7—74777 : 1 rr—p,:!77-;;.* 

PR70 nnP! IB 77117Pi 

PROP POKE I-IF 2 : POKE I F 1 RR 

65 9 9 F0R BD~i TO 7 R 0 : WFXT BB 

,•-“700 PQj/F !,.!, 0 : POKE R , 0 : POKE S , Pi 

6610 FORBB-I TO 75 : NEXT BB 

pppfl HOP! !B 7p 0fi 

6630 P O K E H F, 4 ’ P 0 K E L F . 2 0 3 
6635 F0R BB~1 T0 500* NFXT BB 
6649 POKE N;0■POKE R,0•POKE S, 0 
P P R Pi F 7? p B B1 T R 7 R ' M F X T B B 
7770 ;t> 7000 

6670 POKE HF•3 : POKE LF,54 
6680 FOR DD~ : 1 TO 1208 : NEXT BB 
6608 POKE " N, 8 • POKE Fi ; 0 : POKE" 3, O 
6760 RETURN 

7080 POKE R-130 : POKE S .. 138 : POKE \A . 33 
7910 RETURN 
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ASTRO FIGHTER 


We journey i nto space now so that you can become the pilot of a V-wing 
Astro fighter, patrolling a sector of space around your home planet. 
Nasty yellow alien numbers appear in various places around you. They 
only remain visible for a short, and varying length of time before 
becoming invisible. Your task is to catch as many of these numbers 
as possible, by flying your fighter over them, before the time limit runs 
out. 

The up and down movement of your craft is controlled by the “A” and 
“Z” keys respectively. The left and right movements are controlled by 
the comma and full stop keys. These keys were chosen because the 
symbols above the comma and full stop show the direction of movement. 

Your score at the end of the game relates to the values of the numbers 
you have caught. 

Lines 120 to 150 are used to check your keyboard input and then 
increment your position on the screen. The statement at the end of 
each of these lines changes the appearance of your fighter as it alters 
direction. When you are flying toward the top of the screen, line 140 
changes the symbol used to depict yourfighter in line 220 to the letter 
A. When you are flying toward the bottom of the screen a letter V is 
used. The left and right movement uses the greater than and less than 
symbols to represent your fighter. 

Lines 160 and 170 check to see whether you have hit one of the walls 
around the screen. If you have, your screen position (variable S) is not 
altered until you change direction. Line 180 checks to seewhetheryou 
have run overa number. If you have it multiplies the code of the number 
by eighteen and adds it to your score. 

The routine from line 1000 to 1200 sets up the start of the game. Line 
1010 sets the screen starting position, line 1020 sets the colour 
memory starting position. Line 1030 gives the starting direction of 
your fighter by setting B$ equal to the full stop key. This has the effect 
of continuous movement. When the program reaches line 100 if there is 
no input from the keyboard the value of B$ is used to set up A$. This 
value of A$ is then used as the input. Line 230 then sets the current 
value of A$ equal to B$. Next time through the loop, line 100 keeps you 
moving in the same direction if you do not input a new direction. 
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Lines 1040 to 1070 draw the border around the screen. Line 1080 
diverts the program around the DIM statements in the following line to 
prevent the arraysfrom being reDIMmed on subsequent running of the 
program. ReDIMming an array causes a systems error in your computer. 
This is avoided by using the high score variable HS. The first time the 
game is run HS equals zero so the arrays are set up. The next time you 
play the game HS holds the value of your score for the first game. This 
then meets the condition in line 1080 and the program skips around 
the DIM statements. 

Lines 1090 to 1160 set up the three arrays. The A array contains 55 
numbers chosen at random between one and nine. These numbers 
become the aliens. The B array contains 55 screen locations chosen at 
random and the C array holds the corresponding colour memory 
locations. Line 1150 prevents the aliens from being positioned in a 
wall. 

Variable CC in line 1170 is used as the counter to run through the 
arrays, POKEing the aliens onto the screen. CC is incremented in line 
190 and tested in line 200. When CC equals 55 the arrays are empty 
and the game ends. 


i n f 

Cjvj PCTPH ~ 

T f.:U JPP 

1 F !• 

s~e 



r:C;| iT> Fjj~!}7| 


Ff! F 

OKE 53280.- 

2 : POKE 52281 .= 6 

fSA r 

08! IT' 1 MHM 


1 

nrT : TP 

H:& n ,f TM F M Fj £~ P ;£ 

1 1 v • 

C-O T !-.?T 

:nfiPP : " : c : r * PPM MHMP 

1 1 *7 

F“f: • R:~E;: V1 

.1,.! 

•{ 

IF fi:$- ! V 

THEN 3=3+1 : C=C+1 : V 

1 30 

TP 11 " 

THEN 3=3.1 : OC--1 ' V 

1 4 

T FI £} ;&•-:: HD" 

THEN 3=3-40:C=C-40 

138 

Tp n 7 11 

THEN 8=3+40:C~C+40 


160 L! ; ~FEE!< (. 3 > 

170 IF 102 THEM C=E : S=Q : V : "V1 

— y r—..... 

! ! j ' 

1.80 IF W>48 RHE MCE 8 THEN SC"8C-M--i#18 
195 jj-RHIi (1} 

i 9 0 t r j J >§ 2 T H E H P 0 K E C i C C > . @ : p 0 KE E <. C C > . 4 8 ' C C=C f: +1 
:POKEB(CC >,R ( CC>’F'OKEC ( CC?.7 
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280 IF CC=55 THEN 300 

203 POKE S~32. 

2 i 8 POKE E.. 0 

220 POKE C,7 : POKE 3,V 

239 

248 GOTO .188 

308 FOR BB=1 TO 1889 : NEXT BB 
318 PRINT ! T]" : REM C! .ERR SCREEN 
328 POKE 53288,2: POKE 5328175 

338 PRINT ffiB(14) "sHTIME IS UP":REM REV 

ON BLOCK 


349 PRINT "Wifl" TO'RCIp-) "VON SCORFB’ 1 ; :";C 

345 IF HSTSC THEN H8=SC . ." 

358 PRINT "W" TRB(12) "HIGH SCORE I3:";HS 

369 FOR BB~1 TO 2588 : NEXT DB 

370 GOTO 50 

1088 PRINT "7!" : REM CLEAR SCREEN 

1810 8=1188 1 1 .. 

1820 0=55388 

ii7i39 

1040 FOR PP=1024 TO 1963 : POKE PP,192 : POKE PP+54272, 
1 : NEXT PP 


1858 FOR PP=1864 TO 1944 STEP 40:POKE PP,182:POKE 


PP+54272,1:NEXT PP 


1868 FOR PP~ 1183 TO 1983 STEP 48 : POKE PP,182:POKE 
PP+54272,1:NEXT PP 

1079 FOR PP=1984 TO 2823 : POKE PP,102 : POKE PP+54272, 
1:NEXT PP 

1080 IF H8O0 THEN GOTO 1188 
1890 BIM fi (. 55 ), B 55 >, C <55 > 

H80 FOR 7=1" TO 55 " 

1 1 28 Fi < z > = I NT < 9*RNB < 1) > +49 
1138 B(Z> = i065+1NT<918*RNB(1>> 

1148 C < Z > =B < Z >+54272 

1150 IF PEEK<B(Z>> =182 THEN 1138 

1t68 NEXT Z 

1170 CC=1 

1180 V=68 

1130 30=8:IF HS=9 THEN HS=1 
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1290 RETURN 

2000 PRINT "T : REM CLERR SCREEN 

2010 POKE FPPPP , j : Pfik'P Roopj i 4 

2920 PRINT "Mi?Mi?lP!M!!!lii!" : REM DOWN H ippnp 

2030 PRINT TRBC8) "©*#### ASTRO FIGHTER #####" 

REM BLUE 
% 

2940 FOR DIM TO 1FIR0: NE y T T'D 
2050 RETURN 
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WARLOCK’S CASTLE 


At the beginning of this game you find yourself standing on the 
doorstep of a castle occupied by an evil warlock. The warlock has cast 
a spell over the surrounding countryside and, being a gallant hero, your 
task is to enter the castle and track down the warlock. The only way to 
break the spell and to free the country is to kill the warlock with a magic 
arrow fired from your trusty bow. The warlock is very powerful and has 
surrounded himself with a bodyguard of trolls, so the task will not be 
easy to complete. 

Being a magic castle, it has no doors. The magic doorstep will transport 
you inside the castle and deposit you in a room chosen at random. You 
will then be told which rooms you can get to from your present position. 
By shouting out a room number at the top of your voice (or by entering 
the number into your computer), you will be carried off to that room. 
You will also be warned if the warlock or his bodyguard are nearby. 

If you enter the room the warlock is in you will suffer a fate worse than 
death. To kill the warlock you have to fire a magic arrow through a wall 
from one room to another. To do this put a minus sign in front of the 
room number when you enter it. For instance -32. You start the game 
with three arrows so use them wisely. However you may be lucky 
enough to find an arrow or two as you wander around the castle. 

The computer will tell you when you are getting close to the warlock 
and his trolls. It will also tell you which rooms you can enter. Some 
rooms contain magic spells. These rooms will immediatelysendyouoff 
somewhere else. 
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REM 

WARLOCKS CASTLE 

15 

REM 


" IS DOWN CURSOR 

20 

GOS 

JB 

960 

38 

PR I 

-•IT 

"IT:REM CLEAR SCREEN 

40 

DIM 

AC 

30 > 

50 

DIM 

BC 

30) 

60 

n=3 



70 

FOR 

. 

0 TO 30 

30 

AC 2 

> =0 


90 

HEX' 

1 ~ —? 
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100 FOR 2=0 TO 10 
110 fl=INT ( 30*RND(1)) +1 
120 IF A( A)=j. THEN 110 
130 A < ft) = 1 
140 B(2)=R+il 
150 NEXT 2 

155 IF B(i0)=0 THEN B<10)=INT(25*RNB(1)) + l 
160 PRINT u mm u TAB(10) "3TTHERE IS MAGIC HERE": 

REM BLUE 

170 FOR BB=1 TO 1000:NEXT DD 
180 X= (I NT (1 6$RNB < 1)) +1) #2+10 

190 PRINT "M" TAB(5) "YOU ARE BEING SENT TO ROOM"; 

X ; REM CURSOR DOWN 

200 FOR BB-i TO 1000=NEXT DD 
210 Y=7 

220 PRINT "21":REM CLEAR SCREEN 

230 PRINT "XT' TAB(8) "SVOU ARE NOW IN ROOM #";X: 

REM BLUE 
240 A~~l 

250 FOR 2-0 TO 15 

260 IF B(Z)=X THEN A=INT(2/5) 

270 NEXT Z 

280 IF A=0 THEN 160 

235 IF AO 1 THEN GOTO 350 

300 FOR BB=1 TO 1000:NEXT DD 

310 PRINT "Sf.as" TAB(9) "THERE ARE TROLLS HERE": 

REM BLACK 

320 FOR DD=1 TO 1000:NEXT BB 

330 PRINT "MM" TAB(9) "THEY HAVE KILLED YOU" 

340 GOTO 778 

350 IF A=2 AND RNB(x)>.4 THEN PRINT "WWWi'OU HAVE 
FOUND THE WARLOCK":GOTO 690 

375 F-X-l : Q=X+1 : H-X+Y 

376 IF F<1 THEN F=1 

377 IF Q<1 THEN Q=1 

378 IF H<1 THEN H=1 

380 PRINT TAB(4) "YOU CAN MOVE TO: #";F;"#";Q; 
; H 

390 FOR 2=0 TO 2 
400 A (2)=0 
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A •! 

*-!' X Kj 

438 
4 4 y 
458 

’-I'60 
4 7 Pi 


4 s y 


IF RBS<IO = i OF: B~V THEN R< INT(Z/5>> = 1 
NEXT Z 


BBS (ID 


IF B--2 OR TJ'-O OR B=8 THEN H(2>--"1 
IF ficO)i fHfc.H PkiNi 

MAGIC NEARBY M%" ■ REM YELLOW 


ARE TROL 

Lb* NLHRE’ 

495 REM BLfiC 

K 

506 IF A(2> = 

1 THEN P 

WARLOCK 

IS HEARB 

518 H~"2 : If k 

Ni> i u c> 

"VOU HA'v 

■'E FOUND 

515 REM RED 


520 PRINT "KB" TAB<3 

ENTER";: 

REM BLUE 


mr trb 1 5: 

5 T j- j LRh 

!f“! | !~si i 

i uLlUN 


Ksl" TRB<4'. 

‘‘ft## THER 

JSKT TAB 15; 

‘ ^#7 THE 

:REM GRAY 

i 

PRINT "m 

1 TRB C 3 > 


530 

540 

550 

560 


580 

590 

608 


INHUT M 


PRINT "23" : REM CLEAR SCREEN 
FOR Du=i TO 1088 : NEXT BB 
IF M<0 THEN 618 

IF MCI OR ID45 THEN PRINT "M" TRB(i0> 
"CANNOT MOVE THERE 1 ' : GOTO 536 

V.V 

UUIU 228 


618 

IF RHD < 1 >> .6 THEN 638 


628 

1 !~ PI ..B l -. 10 x 1 H L H o y 


b 3 kj 

u —u. 1 


648 

PRINT "'mm' TAB( i4> " 

YOU MISSED":REM WHITE 

650 

PRINT "W TRB < 3 > "YOU 

HHVt. "; U .• " hFikuNS LLF T " 

bbb 

FOR BB-1 TO 10@0--NEXT 

BB 

67@ 

PRINT "23" : REM CLEAR SC 

:REEH 

b y 'rj 

GOTO 238 


i;;> y i ; ;’j 

FOR BB“1 TO 1580 : NEXT : 

PRINT "23" : REM CLEAR 


708 


SCREEN 

X=INT( 4#RND(1>) +1 
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?1Q IF H- 


i i 


"ki V-*:, 


! ‘ tuhd !! 


720 IF 7=2 THEN V$="TREE" 

738 IF 7=3 THEN V$«"RABBIT" 

740 IF 7=4 THEN V$= ,: WORM" 

745 FOR DD=1 TO 1880:NEXT DD 

758 PRINT " mm " TAB<3> "VOU HAVE BEEN TURNED INTO 
Pi "; V$ 

770 GOSUB 200O 
780 GOTO 780 

860 IF Fi=2 AND RND<1».6 THEN A=G~1: RATH 640 
870 PRINT "H" ■' REM CLEAR SCREEN 
880 FOR BB=i TO 1080:NEXT DD 

090 pRiHT ThB<6> ":pMpM’:HV0U HAVE KILLED THE WIZARD 
: REM BLACK 

3 8 O U U 3 U E* 300u 
3£i5 GOTO 305 

910 FOR DD--1 TO 1800 = NEXT DD 

960 PRINT : REM CLEAR SCREEN 

970 POKE 53280, 2 -POKE 53281,10 

988 PRINT "MWWWT:REM DOWN CURSOR 

998 FOR 7= 1 TO 48 ; PRINT "ffi" CHR$< 113>; : NE7T •' REN 

VELLOW 

1800 PRINT "WKH" TAB(8) "### WARLOCK '$ CASTLE ###" 

: REM BLACK 
1010 PRINT "MW" 

1820 FOR 7=1 TO 40 = PRINT "lii" CHRt< 113> ; NE7T: REM 
VELLOW 


1038 AfiSUB 4800 

1840 RETURN 

2008 POKE 54296,15 

2810 POKE 54277,17:POKE 54278,138 

2028 POKE 54276,33 

2030 POKE 54273,4:POKE 54272,73 

2840 FOR DD=1 TO i80@:NE7T 

2850 POKE 54273,5:POKE 54272,185 

2860 FOR DD=1 TO 750:NEXT 

2070 POKE 54273,3:POKE 54272,155 

2080 FOR DD=1 TO 1500:NEXT 

2890 POKE 54276,0:POKE 54277,0:POKE 54278,0 

2180 RETURN 
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3080 

PGK 

E 54296,15-POKE 5427 

7,130:POKE 54278,136 

3810 

POK 

E 54276,17 


3828 


; v =: i yy : i • V J r ^ i 0 


303S 

POK 

E 54273,6 : POKE 54272 

i V 

3048 

FOR 

BB=1 TO 175:NEXT 


3845 

T=T 

T 1 


3058 

*• •* •. 
l *t ***** l *| 

+XX ; v=v+vv 


3068 

IF 

T=9 THEN- YV=-VY : XX=- 

l* *i s* *1 

3065 

IF 

TM6THEN POKE 54276, 

0:POKE 54277,8 : POKE 


542 

78,0:END 


3070 

GOT 

n 3030 


4 y y y 

POK 

E 54296,15 


4010 

POKE 5 4 cl r"* / ,• >!0 ; PUKE -J’-K::;! <•’ 

3, 130 

4828 

POK 

E 54276,33 


4840 

POK 

E 54273,3 : POKE 54272 

, 54 

4045 

FOR 

DD*1 TO 508 : NEXT 


4858 

POK 

E 54273,3=POKE 54272 

.• 1 -j‘j 

4855 

FOR 

DD=1 TO 580:NEXT 


4868 

H U K 

E 54273,2:POKE 54272 

, 228 

4870 

FOR 

DD=1 TO 750:NEXT 


4880 

POK 

E 54273,3:POKE 54272 

, d4 

4885 

FOR 

.DU- i iu x yyy • mcia i 


4898 

POK 

E 54277,8 : P0KE54278, 

8 : P0KE54276,8 

4180 

RETURN 
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VALLEY OF THE SPIDERS 


Your aircraft has crashed in an isolated valley high in the Andes 
mountains. The only inhabitants of the valley are large blue spiders. 
These spiders are very hungry and, fortunately for you, not very bright. 
As they pursue you around the valley they often blunder into the 
numerous swamps in their hurry to catch you. Your only hope for 
survival is to avoid the first rush of spiders and then lure the ones 
chasing you into the swamps. 

The screen display will show the valley boundaries, which neither you 
nor the spiders can cross. You will be displayed as a black CLUBS 
symbol and the swamps are green circles. You will recognise the 
spiders when you see them. 

The game starts off with you running to the right across the screen. 
Your little man moves continually during the game and you use keys on 
the computer keyboard to change his direction.The “A” key moves him 
up the screen, the “Z” key down the screen. Press the key to move 
left and to move rig ht. These keys may feel a bit odd at f i rst but after a 
little while you will find that they are very easy to use. 

The routine from lines 2000 to 2500 sets up the program, line 2002 
changes the screen and border colours and lines 2010 to 2040 draw 
the top and bottom borders of the valley. Lines 2050 to 2070 select 
and place the spiders and swamps and also draw the sides of the 
valleys. Variable Z represents the swamps and Z1 is the spiders. 

Lines 30 to 80 check the keyboard for your input and make the 
relevant direction changes. 

Lines 90 to 140 use PEEK to see if you have walked into the edge of 
the valley or a swamp, in which case they prevent you from moving any 
further in that direction. These lines also check to see whether you 
have bumped into a spider. 

Lines 160 to 290 control the movement of the spiders. These lines also 
use PEEKto see whether the spiders have walked into awall, a swamp 
or caught up to you. 

Lines 1500 to 1630 provide the end routines which tell you how well or 
how badly you performed. 
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Valley of the Spiders is a fun game and one well worth experimenting 
with. No computer game program is ever really finished. So please use 
this game as a starting point and as your programming skills grow, use 
it as an exercise in moving graphics. Try to add as many additional 
features as you can. For instance you could make the swamps fatal to 
our little pilot as well as the spiders. Try to add a high score feature or 
more hazards for the player to avoid. The possibilities are endless. 


10 REM VALLEY OF THE SPI r ‘ 
20 G03UB 2009 


36 

3ET 8$ 

: IF 

8$="" 

THEN 

S$=T$ 

40 

AE=A:BE=B 




50 

IF 3$* 

"A" 

THEN 

A=a-40 

:B=B.40 

60 

IF S$~ 

! i "7 n 

THEN 

A=A •'i-40 

:B=B+40 

78 

IF 

!! 11 
ii 

THEN 

A*A+1 : 

B-B+l 

80 

IF 

M !l 

THEN 

A=A-'l : 

B=B-1 

99 

W=PEEk 

( H > 




1 00 

IF I.X 

127 

THEN 

A--AE : B 

=BE 

110 

IF W= 

42 

THEN f 

i=AE = B= 

BE 

i i=iIW 

IF W~ 

81 

THEN A==AE : B~ 

BE 

130 

POKE 

AE, 

43: i-'Ok 

’E BE.. 1 


14o 

POKE 

rl .< 8 

8:POKE 

B,0 


150 

T$«S$ 





160 

REM S 

FIBER CONTROL 


170 

FOR R 

= 1 

T* (~i i 1 

i U T 



188 

U=0 






185 IF PEEKCQCR> > = 81 THEN 269 

190 IF QCR>>A THEN i>~l: IF RNDC 1 >>. 5 THEN l>-40 

200 IF QCRXA THEN U=1 : IF RNBCDX5 THEN U*4@ 

210 POKE QCR).. 46 : POKE PCR>,1 

220 Q CR > ~Q C R > +U : P C R> =P C R > +U 

225 IF PEEKCQCR)>=88 THEN 400 

230 IF PEEKCQCR) >=81 THEN TC : --TC+1 : GOTO 260 

235 IF PEEK. C Q C R > ) = 127 THEN Q C R > =Q C R > -U = F‘ C R > =P C R > 

248 POKE Q C R >.. 42 : POKE PCR),14 

268 IF TC=V THEN 310 

290 NEXT 

2.34 PR I NT "SI" - REM HOME CURSOR 


PRINT TABC 10)" 
"OUT 0F";V 


lly";tc.; 


296 REM WHITE DOWN CURSOR 

297 OOSUB 3080 
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308 GOTO 30 
310 GOTO 1500 
350 GOTO 410 

400 POKE Q <R>,42 : POKE P <R >,14 
405 G 0 T 0 16 O 0 

410 FOR DD=1 TO 3000=NEXT DU 
■420 RUN 

1500 PRINT "T=REM CLEAR SCREEN 
1510 SC~SC#108 

1520 PR I NT TAB < 10 > " sftMiMfiSWr'OU KI L.LEH"Vj " SPI HER 

1525 REM WHITE CURSOR DOWN 

1530 PRINT TAB< 11) "JSNOU HAVE SURVIVED" 

1540 PRINT TAB(11> "MMVOUR SCORE IS";SC 
1560 GOTO 410 

1600 POKE 53280.. 11: POKE 53281,0 
1605 PRINT "IT = REM CLEAR SCREEN 
1618 PR I NT TAB < 6) " aW?W!W®lT'OU KILLED"; TC; 


'SPIDERS 


OUT OF";V 


1620 
1638 
2008 
2002 
2005 
2010 
2020 
2030 
2849 
2050 


PRINT TAB(10) "MVOU DIDN'T SURVIVE" 

GOTO 418 

REM INITIALISE 

POKE 53280,6:POKE 53281,11 

PRINT "T: REM CLEAR SCREEN 

FOR J=i TO 35 

POKE 55295+J, 4: POKE 1023+J., 127 
POKE 56055+J,4:POKE 1783+J,127 
NFXT 

FOR J=1024 TO 1784 STEP 40:POKE J,127:POKE 


54272+J, 


4 


2854 

2055 


Z=INT<30*RND<l>>+3: 
IF J>1824 AND J<178 


Z1 ~ I NT (30*RND <. 1 >> +2 
4 THEN POKE J+Z,81:P0KE 


J+Z+5427I 


2056 T—8•IF 


•J> 1024 AND -K1784 AND RND (1 


6 THEN 


T~1 


2060 

2078 

2880 

2090 


IF T=1 THEN V=V+1=Q(V> =J+Z 1=PCV> =J+Z1 +54272 : 
POKE Q<V >,42:POKE P <V>,14 
POKE J+35,127 :POKE 54307+J,4 
NEXT 

A"1065 : B-55337 : REM START POSITION OF PLOVER 
POKE A,88:POKE £,0 
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2160 

T$="." 

2110 

S 1 J :::: k1 

2500 

RETURN 

3000 

POKE 54296 

3010 

POKE 54277 

3020 

POKE 54276 

3030 

POKE 54273 

3035 

FOR T=1 TO 

3048 

POKE 54276 

3050 

POKE 54277 

3060 

RETURN 


15 

17 

129 

34: POKE 54272.. 75 
10:NEXT T 
0 
0 
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SHARKFIN 


You are the Captain of the nuclear submarine USS SHARKFIN on 
patrol in the North Atlantic. Somewhere in the waters around you is an 
enemy submarine. You must find it and put it out of action with your 
torpedoes. To score a hit you must get as close as you can but don’t get 
too close, a collision with the enemy submarine will be fatal to you both. 

Moving your submarine and firing your torpedoes uses up your fuel 
supply, so play your moves carefully. 

Being hit by an enemy torpedo causes a loss of damage points (DP). 
When your damage points reach zero (line 605) your submarine has 
been destroyed. 

Your air supply also has a limit so that you can only stay submerged for 
a certain amount of time. 

The computer will keep you informed of your position in the icy waters 
and will also give you the approximate position of the enemy submarine. 

Line 870 sets the amount of fuel you have available, line 875 gives you 
a random number of damage points so that your ability to withstand 
direct hits will be different each game. Line 890 sets the time limit for 
the game. 

Lines 900 to 920 choose the starting position of the enemy submarine 
and lines 930 to 950 choose your starting position. Line 750 checks for 
a collision and line 280 sees whether the enemy submarine is in range 
when you fire a torpedo. 

Lines 100 to 170 accept your move and adjust your position in the 
ocean. Lines 190 to 240 move the enemy submarine. 

Lines 670 to 850 provide the feedback after each move. Lines 760 to 
840 compare your position with that of the enemy and provide the 
approximate direction. 
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298 FOR DB=1 TO 1588 : HEKT BB 

318 IF i ; iBSt:R-X>>3 OR flBS(B-V>>3 OR FlBS<C.Z»3 THEN 

RETURN 

320 PRINT "W TAB(4) "sGREER TO FIRE UNDERSTOOD, 
SIR":REM WHITE 

338 FOR BD-i TO 1888:NEXT BD 

348 PRINT "M" TfiB<18> "TORPEDO RUNNING" 

358 IF R H D ( 1 > > 8.7 T H E N G 0 T0 488 
355 PRINT ’US" TFiBc5> : FOR TT*i TO 6 
368 PRINT 
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•-i er 
,".0 .j 

FOR DD 

-1 TO 580:NEXT 


.“•( 

o: 0 

NEXT TT 


3yy 

PRINT 

"1MISSED" : FOR DB=1 TO 500:HE' 

TT DD : REM 


BLACK 



390 

GOTO 4 

28 


460 

PRINT 

"M" TAB<5) : FOR TT=1 TO 6 


405 

PRINT 

15 2! • 


4 i 0 

FOR DD 

-1 TO 580:NEXT DD 


/i •! -'T 
‘ r x 

NEXT TT 


415 

PRINT 

"ENEMY SUBMARINE DESTROYED":» 

GOTO 3080 

428 

RETURN 



430 

FOR DD 

=1 TO 2080:NEXT DD 


432 

POKE 5 

3288,0:POKE 53281,7 


435 

PRINT 

TABUO) "»THE i 

GAME HRS 


ENDED" 

; REM CLR SCRN DOWN CURSOR 


436 

REM BLACK 


440 

IF TV= 

0 THEN PRINT "M" TABC5) "YOU 

HAVE STAVED 


UNDER 

TOO LONG" 



460 IF LOG THEN PRINT "M" THE(7) "ALL YOUR FUEL 
HAS BEEN USED" 

470 GOTO 2000 

488 PRINT "M" TAB(6) "YOU HAVE COLLIDED WITH THE 
ENEMY SUBMARINE" 

580 GOTO 2800 

510 IF ABS<A-X»3 OR RBS<B~V>>3 OR ABS(C-Z)>3 THEN 
RETURN 

528 IF RND(1>>0.75 THEN RETURN 

530 PRINT "n" : PRINT "M" TABUS) 'THORNIHG" : REM 

CLEAR SCREEN ORANGE DOWN CURSOR 


535 PRINT "M" TA£<6> 
538 GOSUB 2508 


"THE ENEMY IS FIRING AT US" 


540 FOR DB=1 TO 1880:NEXT nn 

568 IF RNDC1)>0»7 THEN GOTO 630 

578 PRINT "M" TAB<6> " afTHE ENEMY HRS HIT US SIR" 


REM WHITE 


588 DP=DP-15 

598 FOR BB=1 TO 1580:NEXT DD 
680 IF L<0 THEN GOTO 478 
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605 IF DPC0 THEN GOTO 3500 
620 RETURN 

630 PRINT "M" TRB(6> "iTHE ENEMV MISSED 
REM BLACK 


SIR' 


640 FOR DD--1 TO 2000=NEXT BD 
668 RETURN 

678 PRINT : REM CLEAR SCREEN 

680 PRINT "M" TAB(6) "ffiFUEL REMAINING 


L. = REM 


•'ELLON 


690 TV=TV-1 

700 IF TY--0 THEN GOTO 439 
718 PRINT "M" TAB(6 > "TIME-";TY 
720 IF LC3 THEN PRINT "M" TAE(4> "FUEL IS RUNNING 
LON” 

740 PRINT "W TAB(6) "YOU ARE AT";X;" ";Y; I! ";Z 
758 IF fi=X AND B-Y AND C=2 THEN GOTO 488 
768 PRINT TAB(6) "WTHE ENEMY IS "; 

770 IF RON OR BOY THEN PRINT TAB(6) "TO THE " 

775 PRINT 

778 PRINT TAB(6> 

788 IF A<X THEN PRINT "NORTH"; 

730 IF A>X THEN PRINT "SOUTH"; 

888 IF E>Y THEN PRINT "EAST"; 

810 IF B-CY THEN PRINT "NEST"; 

838 IF 02 THEN PRINT " BEHIND YOU" 

840 IF CCS THEN PRINT " IN FRONT OF YOU” 

858 RETURN 

878 L= 15+1 NT < 20#RND ( 1)> +1 
875 DP=25+1NT < 3@*RNDC1>) +1 
888 T=8 
090 TY-35 

980 fi=INT (1@#RND(1)> + i 
910 B=INT<18$RND<1> > +1 
920 C=INTa0*RND<lJO + l 
938 X-INT(18*RND<1>)+1 
940 V== I NT < 10#RND ( 1 > > +1 
950 Z ~INT <10#RND<1>) +1 
968 RETURN 

978 FOR DD-"1 TO 1880: NEXT DD 

980 PRINT "M" TAB(10) "S### OUT OF RANGE ###":REM 
LT RED 
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yyy r 
1 000 
1685 
1 0 1 0 


RETURN 

PRINT""5" : REi'i' CLERR"SCREEN 

PRINT DOWN CURSOR 

PRINT TfiBUe) "I### ilUSS SHRRKFIN »###":REM 



BLACK VELLOi 

1 W-Jfci 

POKE 54236, 

1046 

1" U {■•. c. 5* 4 c.. r* o j 

i 059 

POKE 54273, 

1 060 

FOR DD=1 TO 

1070 

POKE 54273, 

i 080 

FOR TO 

1 @90 

IF TT=4 THE: 


54273, @: TT=: 

1100 

TT~"T1 GOT 

I 'l 1:1 

3U5U.L* ly-Jti 

2010 

GOTO 2610 

ci-jtiy 

POKE 54236, 

2505 

POKE 54277, 

2510 

POKE 54275,: 



2530 

FOR DD=i TO 

2540 

POKE 54276,: 

2550 

FOP TVD= 1. TO 

2569 

IF TT >6 THE! 

2 5 60 

TT=TT-t-i : GOT! 

3000 

FOR liB^l TO 

3005 

POKE 53288,' 

3006 

PRINT 3 

3007 

Pur uij= 1 Tu 


REM VELLUW 

3010 

PRINT:PRINT 


REM L’VHN 

0 O 1 fc.:! 

PRINT "W •'! 


: NEXT GG : RE: 

3026 

POKE 54236. 

3630 

POKE 54277,: 

3046 

POKE 54276, 

3050 

HF=54273: LF ; 


•-i rr snr 
'J 


':r 


3666 POKE HF,57=POKE LF,172 
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8 ,'-y 
088 
090 
100 
110 
128 
188 
148 
208 
508 
518 
528 
538 
540 


FOR BB~i TO 125 : NEXT HD 

POKE HF,64:POKE LF,188 

FOR BB~1 TO 125: NEXT DB 

POKE HF,51:POKE LF,97 

FOR BB=1 TO i25:NEXT DB 

POKE HF,57=POKE LF,172 

FOR BB~-1 TO 580: NEXT DB 

POKE 54276,8:POKE 54277,0:POKE 54278,0 

GOTO 3280 

FOR BB=1 TO 1800:NEXT 
PRINT REM CLEAR SCREEN 
POKE 53288, 8 •• POKE 53281,2 
PRINT 

PRINT TflB(8) "Iff### VOU HAVE BEEN SUNK ###' 


REM VELLOW 
3550 G08UB 1038 
3568 UUTU 8568 
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TUNNELS OF THAR 


Somewhere in the mysterious Tunnels of Thar lies the long lost Holy 
Grail. Being a bold Crusader, good and true, you have ventured into 
these uncharted tunnels, braving the musty blackness with only a 
medieval Grail Detector to help you. Medieval Grail Detectors weren’t 
very sophisticated so it may take a while to interpret the readout the 
detector gives you. 

At the start of the game the computer will give you a quick look at a plan 
view of the tunnel system, after this you are on your own. To move 
through the maze of tunnels, press the first letter of the direction you 
wish to travel, for instance “N” for north. After each turn the computer 
will tell you which directions are open to you. 

Such as: 

NORTH: WALL 
SOUTH: OPEN 
EAST: OPEN 
WEST: WALL 

The computer will also give you the readout of your Grail Detector. 

If you get lost or confused, pressing “H” for help will reward you with 
another look at the plan view of the tunnels. Open passages will be 
shown in yellow, your position is marked with a blue asterisk. Unfor¬ 
tunately, asking for help results in a penalty of 15 moves. Your score at 
the end of the game depends on how many moves you took to find the 
Grail. 

In this program the routine from 530 sets up the parameters of the 
program. The lines 550 to 580 decide the position of the Holy Grail. 
This will change each time the program is RUN. 

The DATA statements in lines 750 to 840 provide the locations inside 
the array for the tunnels. The array is DIMensioned in line 540. Lines 
690 to 720 READ the DATA into the array. 

Lines 380 to 520 print the plan of the tunnels on the screen. Lines 210 
to 330 accept your moves and work out your new position. Lines 50 to 
190 provide the feedback printed on the screen after each move and 
line 190 works out the reading of the Grail Detector. Line 310 checks 
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to see whether you have found the Grail. If you have, the subroutine 
from line 1000 congratulates you and tells you how many moves it took 
you to complete the task. 


10 REM TUNNELS OF THAR 

15 POKE 53281.5=POKE 53280,1 

16 PRINT ’73" : GGSUB 1200: REM CLR SCRN 
1? PRINT TAB C12) "WMMWWTUNNEL8 OF THAR": REM 

CURSOR DOWN BLACK 

20 GOSUB 530 
30 GOSUB 370 
40 M=M+1 
50 PRINT "3" 

60 PRINT TAB05) "WSJIIOVE NUMBER:"; M = REM CURSOR DOWN 
GREV 2 

70 PRINT TABC5) "WORTH : "; : REM CURSOR DOWN 


70 PRINT TABC5) "WORTH : "; : REM CURSOR DOWN 
80 IF A<D+1,E)=S THEN PRINT "OPEN" 

98 IF A(D+1,E)=N THEN PRINT "WALL" 

100 PRINT TAB 05) "WSQUTH: "::REM CURSOR DOWN 
110 IF A<D-1,E)=S THEN PRINT "OPEN" 

120 IF A<D-1,E)THEN PRINT "WALL" 

130 PRINT TAB(5) "WEAST: ; REM CURSOR DOWN 

140 IF fl(D, E+l)=S THEN PRINT "OPEN" 

150 IF A(D,E+l)=X THEN PRINT "WALL" 

160 PRINT TAB(5) "WEST: ";:REM CURSOR DOWN 
170 IF ACD,E~1)-S THEN PRINT "OPEN" 

180 IF fl<D,E~l)~X THEN PRINT "WALL" 

190 PRINT TAB05) "JPGRAIL DETECTOR READS : "; 100# 

< ABS Z-D) +ABS (V~E)) + V-E 


210 PRINT TAB(5) "INDIRECTION?" 

211 PRINT TAB05) "WORTH SOUTH EAST WEST HELP" 

215 GET A$ : IF A$="" THEN 215 

220 IF A$="N" AND A<D+1,E)=X THEN 215 

230 IF A$-"S" AND ACD~1,E)=X THEN 215 

240 IF A$="E" AND A<B,E+i)=X THEN 215 

250 IF A$-"W" AND A<D,E-1)=X THEN 215 

255 IF A$="H" THEN GOSUB 370 

260 IF A$="N" THEN D=D+1 

270 IF fl$="S" THEN B=D-1 

280 IF fl$="E" THEN E=E+1 

290 IF fi$="W" THEN E=E~1 


8 
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319 IF Z=D AND Y=€ THEN 340 

330 GOTO 40 

340 GOSUB 1000 

350 GOSUB 2000 

360 GOTO 360 

370 REM HELP 

375 POKE 53280,6 : POKE 53281,0 
388 PRINT "T: PR I NT "M" : REM CURSOR DOWN 
400 PRINT TRB<17> "SSNGRTHS":PRINT = REM BLUE 
REV ON REV OFF 

410 FOR B=15 TO 1 STEP -1 : FOR C=1 TO 15 
420 PRINT TAB(12); 

430 IF A(B,0=X THEN PRINT "fST;: REM RED SYMBOL 
FROM COMM KEY AND + KEY 

435 IF'B=B AND C=E THEN PRINT "3*", : GOTO 440:REM 
BLUE 

436 IF A(B,0=S THEN PRINT "UK";: REM YELLOW 
440 NEXT:PRINT:NEXT 

470 PRINT TAB(17) "3MSBOUTHS" : PRINT:REM BLUE 
CURSOR DOWN REV ON REV OFF 
480 M=M+15 

490 FOR J=1 TO 2000:NEXT 

500 PRINT "T :A<D,E::'=S:REM CLR SCRN 

515 POKE 53280,0:POKE 53281,6 

520 RETURN 

530 REM INITIALISE 

540 DIM A(15,15) 

550 1 NT (3*RNB < 1 > > +1 

560 Z=14 : Y*14 
570 IF B=2 THEN Y«2 
580 IF B=3 THEN Z=2 
590 X=1 : 8-2 

610 FOR B=1 TO 15'-FOR C=1 TO 15 

630 A(B,C>=X: IF RNn(l».9 THEN A(B,C>=S 

640 IF C<20 OR 014 OR BC20 OR B>14 THEN A(B,C>= 

650 NEXT:NEXT 

670 B-2 : E=2 

690 FOR F=1 TO 68 

700 READ B:REAB C 

710 A(B,C>=S 

720 NEXT 
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730 Ms-is 
740 RETURN 

750 DATA 2,2,2,3,2,4,2.. 5,2,6,2,7 

760 DATA 3,7,4,7,5, 7,5,6, 5,5, 5,4, 5,3,6,3 

770 DATA 7,3, 7,4,7,5,7,6, 7, 7, 7,8,7,9,9, 8 

780 DATA 10,8,10,7,i0,6,i0,5,10,4,8,8 

790 DATA 10,3,11,3,12,3,13,3,14,3,14,2,7,10 

800 DATA 6,10,5,10,4,10,3,10,2,10,2,11,2,12 

810 BATA 2,13,2,14,6,11,6,12,6,13,6,14,7,12 

820 BATA 14,12,8,12,8,14,9,12,9,13,9,14,10,12 

830 BATA 11,9,11,10,11,11,11,12,12,9,13,9,13,10 

840 BATA 13,11,13,12,13,13,13,14,14,14 

1000 PRINT "LI":REM CLR SCRN 

1010 POKE 53280,4:POKE 53281,11 

1020 FOR X=1 TO 4 

1030 IF X-1 THEN PRINT ";3":REM ORANGE 

1040 IF X=2 THEN PRINT "H"=REM PURPLE 

1050 IF X=3 THEN PRINT 'V : REM CVAN 

1060 IF X=4 THEN PRINT "Si" : REN GREEN 

1070 PRINT TABC 12) "JJHQLV GRAIL !!!"•' REM CURSOR BONN 

1080 NEXT 

1090 PRINT TABC8) "MWBifi'OU FOUND IT IN";M;"MOVES" 

1180 GQSUB 2000 
1110 GOTO 1110 
1200 POKE 54296,15 

1210 POKE 54276,65:POKE 54275,0=POKE 54274,255 

1230 POKE 54277,138:POKE 54278,130 

1250 POKE 54273,1:POKE 54272,155 

1265 FOR X=1 TO 1000:NEXT 

1270 POKE 54276,0 

1280 POKE 54273,0:POKE 54272,0 

1290 RETURN 

2080 V=54296 = W=54276 : A=54277:HF-54273 = LF=54272: 
8=54278 

2810 POKE V,15 

2020 POKE W,65:POKE fi,100:POKE 54275,0:POKE 


54274,255 

2830 READ AA : IF AA=~1 THEN GOTO 2100 
2040 READ BB 

2060 POKE HF,AA : POKE LF,BB 
2070 POKE S,130 
2080 FOR X=1 TO 100:NEXT 
2090 GOTO 2020 
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2100 PQKEHF.. 34 : POKELF, 75 : FOR X® 1TO250 : NEXT: POKE W, 
0:POKE HF,0•POKE LF, Q :RETURN 
2110 DATA 51,97,57,172,51,37,38,126,34,75,38,126, 
43,52,51,97,38,126,34,75,32,94 
2120 DATA 28,214,25,177,28,214,-1,-1 
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CAVERNS OF TERROR 


We now come to Caverns of Terror, a game which almost defies 
description. Most adventure type games are based on logic and are 
cleverly planned, with many challenges for the player. Difficulties to be 
overcome, puzzles to solve and usually a final goal to achieve. Caverns 
of Terror is nothing like that. It is more of an ordeal than an adventure. 

Lines 130 to 520 print instructions on the screen, decide whether you 
are being attacked and if so by what. They keep track of which cavern you 
are in. They also give you a rather limited choice of defensive weapons. 
These lines also call up other routines which provide all sorts of odd 
happenings. 

The random number generator in lines 580 to 610 decides whether you 
have defeated the attacker. Lines 600 to 610 direct the program to the 
relevant print routine, depending on the result of the generator. 

The variable W keeps track of your position in the caverns, G is the 
amount of gold you are carrying and X records the number of fights you 
have been in. 

The question which now remains unanswered is: “Do you have the 
nerve, the courage to enter the Caverns of Terror?”. 


10 REM CAVERNS OF TERROR 

15 REM "53""CLEAR SCREEN "M"=D0WH CURSOR 

20 PRINT :REM CLEAR SCREEN 

25 PUKE 53280.0: POKE 53281,11 

30 PRINT TAB(7) CAVERNS OF 


TERROR 


###" : REM PURPLE CURSOR DOWN 

35 GOSUB 2000 
40 GOSUB 1256 
50 X-0:G=30 : W=1 

60 PRINT TAB C 1 >"SSfrOU ARE AT THE ENTRANCE TO A 
SVSTEM 0F" : REM LT RED 
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62 PRINT TAB(8) "MDRRK TUNNELS AND CAVERNS ,! 

65 PRINT TAB<51 1 "WYOIJ HAVE THIRTY PIECES OF GOLD 11 
70 PRINT "WWDOJHEN YOU REACH THE END OF THE CAVERNS" 
72 PRINT "MWYOU MUST HAVE AT LEAST TWENTY PIECES" 

75 PRINT ThBC4>"M0F GOLD TO PAY THE GATE KEEPER" 

80 PRINT TAB(14) "■WWXPRESS RETURN" •’REM BLACK 
SO GET m 

100 IF THEN GOTO 90 

110 GOSUB 910 

120 IF W<1 THEN W=INT(8&RMB(i>)+1 
130 PRINT TAB(7)"iSWCMSTTH18 IS A MAZE OF CAVERNS": 
REM GREEN 

150 IF W=>10 THEN GOTO 970 

160 PRINT TAB(8)"SMsTTHIS IS CAVERN NUMBER":W 

180 PRINT TAE(6>"MflCAVERH NUMBER TEN IS THE FRIT" 

280 R"X+1 

210 PR I NT TAB < 7 >" MWTHIS IS CHALLENGE NUMBER"; ';■< 

220 IF G<1 THEN G*3 

240 PR I NT TAB (8)" MKtfOU HAVE"; G" GOLD PIECES" 

250 GOSUB 1240 

268 GOSUB 910 

280 !<> I NT (4$RND (1)) +2 

290 PRINT TAB(6)"IMSWWYOU ARE NOW FACING"JK;" 
TUNNELS":REM LT BLUE 

308 PRINT TAB(7)"miHICH ONE WILL YOU TAKE"; 

310 INPUT A 
320 GOSUB 910 

330 IF RND(1><.2 THEN GOTO 630 

340 IF AOK THEN 360 

350 IF A=K THEN 630 

360 K=INT(4#RNB(1>)+1 

370 if K=1 THEN E$~"GHOUL" 

380 IF K=2 THEN ET="WEREWOLF" 

398 IF K=3 THEN E$="TROLL" 

400 IF K=4 THEN ET-""VAMPIRE" 

410 PRINT TAB(3)"SJtffiSTTHE TUNNEL IS BLOCKED BY A "; 

ET■REM ORANGE 
420 E= I NT < 4#RNIi (1 > ) +1 
430 IF E»1 THEN FT-"POISONED SPEAR" 

440 IF E=2 THEN FT—"CURSED SWORD" 

450 IF E=3 THEN FT="FIREBRAND" 

460 IF E=4 THEN FT="CROSSBOW" 
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470 PRINT TFIBT7} "MRRMED WITH A "; F$ 

500 PRINT TAB (7>" fUSM-JH ICH WEAPON DO VOU CHOOSE--" 

:REM YELLOW 

510 PRINT TAB(7)"Mfl POINTED STICK Cl)" 

520 PRINT TRBC7)"MR SMALL ROCK C2>" 

530 PRINT TABC7)"‘.©ARE HANDS C3>" 

570 INPUT B 

580 C=INTC3#RNDC1>)+1 

598 GOSUB 910 

600 IF B=C THEN GOSUB 1990 

610 IF BOC THEN GOSUB 1160 

620 GOTO 88 

630 K~INT C4$RND C1)> +1 

648 ON K GOSUB 678.. 720.- 770.- 829 

650 GOTO 80 

670 PRINT TAB<2>"WeiMeMfOU HAVE FALLEN THROUGH A 


TRAPDOOR" 


690 W=W-i 

700 G=G-1NT < 2#RNDC1>>-1 
718 RETURN 

720 PRINT TABC5)"WMWWA FLASHFLOOD WASHES 
730 PRINT TAB<13> "MS SIDE TUNNEL" 


740 W=W+1 


VOU DOWN" 


750 G-G-1NT C2*RNDC1>) +1 
760 RETURN 

770 PRINT TAB<18)"MfiM?MrOU HAVE BEEN HELPED" 

775 PRINT TABCl2)"MBV A PASSING GNOME" 

790 G=G+1NT C5#RNDC1> > +1 
880 W-4J+1 NT C 3#RND C1) > +1 
810 RETURN 

820 PRINT TfiB<6)"MSWHQnPEEE!iI A HOARD OF GOLD" 

830 PRINT TABC4)"iflVOU MAV TAKE UP TO 5 PIECES ONLY" 
840 PRINT TABC5) "MBE CAREFUL, THE MORE VOU TAKE" 

850 PRINT TABC8) "KiTHE MORE IT WILL COST VOU" 

860 PRINT TABC6) "38KHOW MANY DO VOU WISH TO TAKE"; 
870 INPUT D 

880 IF D>5 THEN GOTO 870 

090 0=0+B 

900 RETURN 

910 PRINT "51" : REM CLEAR SCREEN 
920 FOR DD=1 TO 250=NEXT 
940 RETURN 
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960 IF WO 10 THEN RETURN 

970 PRINT TRB(5)")?Mt' 0U FlRE STANDING AT THE EXIT" 
988 PRINT TRB<7>"WD0 VOU HAVE ENOUGH GOLD?" 

990 PRINT TRB(8)"Wt!PRESS RETURN TO FIND OUT" 

1000 INPUT 0$: PRINT "□" 

1019 IF 6<20 THEN PRINT TAB<6)"fflM^MfOU DO NOT 
HAVE ENOUGH GOLD”:REM BLACK 

1015 FOR DD=1 TO 1000:NEXT 

1016 IF G<20 THEN PRINT TAB<6>"WWTHE GUARDIAN HAS 
KILLED VOU" 

1017 IF G>=2@ THEN GOTO 1040 

1020 PRINT TAB<7)"SOSVOU COULD NOT PAV THE TOLL" 
1038 GOSUB 2000:END 

1840 PRINT TAB(6)"^««!Ii!Jt'ES, VOU CRN PAV THE TOLL" 
: REM WHITE 

1050 PRINT TAB<8} "MVOU HAVE WON THE GRME" 

1060 PRINT 'WrOU MRV KEEP THE REMAINING GOLD 

PIECES":REM RIGHT CURSOR 

1075 GOSUB 3800 
1080 GOTO 1080 

1090 PRINT TAB<4>"WfisMr'OU HAVE FOUGHT VOUR WAV 
PAST" 

1095 PRINT TAB(13) 'WHE "E* 

1100 G=G+1NT(3*RND <1>) +1 

1110 PRINT TAB <8)"WAND HAVE";G;"GOLD PIECES" 

1120 W=W+INT(3#RNDC1))+1 

1140 PRINT TAB(7)"MVOU ARE APPROACHING CAVE";W 
1150 RETURN 

1168 PRINT TAB(3) 1 'WWWWTHE ";E$.:" BEAT VOU AND 
LEFT VOU" 

1170 G~G~INT <4VRND<1>)-1 
1180 IF G<0 THEN G=0 

1198 PRINT TAB(8)"KWITH";G;"PIECES OF GOLD" 

1200 W=INT <8#RND(1)) +1 

1220 PRINT TAB<5>"WAND CHASED VOU INTO CAVERN";W 
1230 RETURN 

1240 FOR DD=1 TO 3000:NEXT:PRINT :RETURN 
1250 FOR DD=1 TO 1500:NEXT:PRINT "□"•RETURN 
2000 POKE 54296,15 
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2010 POKE 
2020 POKE 
2030 POKE 
2840 
2960 
2070 


54277, 

136 : 

POKE 54273,130 

54276, 

54273, 

- 3 7 PC 

)KE 54272,155 


FOR DD=1 TO 500=NEXT 
POKE 54273,4 : POKE 544 
FOR DD-1 TO 750:NEXT 


2090 POKE 54273,3=POKE 54272,54 


FOR DD=1 TO 1250:NEXT 

POKE 54276,0:POKE 54277,0:POKE 


2108 
2110 
2120 RETURN 


54273,0 
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REVERSI 


This game is based on an old board game very popular in the latter half 
of the last century. 

It is played on an eight by eight checkerboard. The game begins with 
the centre four locations of the board being occupied with two of your 
playing pieces (the open circles) and two of the computer’s playing 
pieces (the crosses). Each player takes a turn, placing a new playing 
piece on the board adjacent to an opponent’s piece so that one or 
more of the opponent’s pieces lie between two of your pieces. If this is 
not done it is considered to be an illegal move and the computer will 
ignore it. The opponent’s pieces trapped between your pieces remain 
on the board but become your pieces. 

The game ends when all the board locations are filled or when neither 
player can make a legal move. The winner is the player with the most 
pieces on the board. 

At the beginning of the game the computer will ask you whether you 
wish to have the first move. After you have answered this question, the 
computer will print the board and playing pieces on the screen. 
Underneath it will indicate who is having the current turn. When it is 
your turn to place a piece on the board, enter the location of the square 
on which you wish to place your circle. This is done by using the square’s 
number down the side of the board followed by the number across the 
board. Enter this number as a two digit number such as 45. 

The computer will keep track of the score and automatically replace 
captured pieces with the opponent’s pieces. You will find that the 
computer plays this game slowly but it will play very well. In fact you 
may find it difficult to win a game against the amazing Commodore 64. 


1.8 REM REVERSI 

15 PRINT GOSUB 6008 : REM CLERE SCREEN 
50 PRINT "IT - REM CL.ERE SCREEN 
30 XsRSC < " X " > V5=flSC <""'6 " > ' REM LETTER 0 NOT ZERO 
48 DIM FK 18,18 > 

50 pnp B”1 TO 10:FOR C=1 TO 18 
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50 IF BO! RMD CO! FIND bo 1 0 RNI) CO 1 0 THEN fkb*c 
-RSC <”, M > 

7fi j. jpvy f; : K!F!:-*;T B 

80 Fi (F . 5 > ■=;:<: q (5,5 *•« ~y t 
9 q q «;* 5.7) - n • R (5, 8 > = n 

1 00 p — 0 

120 PRINT IRE(9> ‘‘W^ITCiO VOU WRNT TO 00 FIRST"’• 

REM VELLOW 

1 30 PR t kit TRB <12 > H W. V03-1 NO-2 > " ; 

140 INPUT M 

150 PRINT "2!" : REM CLFRP SCREEN 
155 POKE F3PR0 , fl • PfiFF FRPRI : 11 
150 003!.JB 3080 
178 IF N-l THEN 2888 

1000 PRINT TRB(16> 11 gyiv MOVE" : REM REV ON CVfiM 
1010 3-0 

1020 T=X 

1000 M-0 

1040 FOR fl~2 TO 9 
1050 FOR B-2 TO 9 
1 080 t p R < R, B > 045 THEN 1320 
1070 Q-0 

1030 FOR TO 1 

1090 FOR D--1 TO 1 
1180 !<-8 
iii0 r~R 

1120 G=B 

1130 IF R C F+C - 0+D > OS THEN 1188 
1 140 10 k 4 -1 
1150 F-F+C 
11.5@ n^O4-1) 

1173 nnyn 1120 

1180 IF RCFO, G+Ii)OT THEN 1288 


11 90 

n-n-M/ 





1 200 

NEXT B 





1210 

NEXT C 





1229 

IF 0=2 OR 0=9 THEN 0 

=s|j*9 
*- • * 




1220 

IF B-2 OR B=9 THEN 0 

-Q*2 




1249 

IF 0=3 OR 0=8 THEN 0 

= 0/2 




1250 

IF B=3 OR B=8 THEN Q 

-Q/2 




1269 

IF <0=2 OR 0=9> RHB 

( p-3 

OR 

B=g > 

THEN 0=0/2 

1 r>?e\ 

IF <0=9 OR 0=8 > ONB 

< B-2 

OR 

B-9) 

THEM 0=0/2 


37 













1280 IF QCH OR Q=0 OR (>>, 3 RND Q~H> 

THEN 1820 

i -~‘Qc | u--r\ 

1300 

1310 *N~B 

i ppfi uryT P 
j 830 NEXT R 

1340 IF H-0 RMD R~T THEN 5008 
1358 IF H=0 THEN 1378 
1360 GOSUB 4008 
1370 GOSUB 3000 

2088 PRINT TRB < 14> "iVOUR TURN”; : REM BLOCK 
2005 INPUT R 

2887 FOR XX~1784 TO 1863 : POKE XX .82‘NEXT 

2019 S=X 

2020 Tr-fj: pp.M letter 0 
2835 REN ZERO f0 PRSS 
2840 IF R~8 THEN 2898 

2050 rp p <" i i n R R > 8 8 T H E N 2088 

2068 M -1N T ( R /10 ) 4-1 

2078 N~R-19# I NT < RX10 > +1 

2088 GOSUB 4800 

2099 GOSUB 3008 

2188 GOTO 1000 

2000 PRINT ": PPM HOME 
ppjifi r-Pi 

3020 H=0 

3088 PR I NT • PR I NT TRB < 16 > 3! VERS I n • PR I NT • REM 
REV ON GREEN 

3835 PRINT TAB(15) "512345678" : REN LT RED 
3040 eqr TO 9 

3850 PRINT 'V'TRB (12) F~l; ‘REM LT RED 
3868 FOR 0-2 TO 9 

3078 PRINT 11 CHR$(fl<F. G>); ‘ REM LT BLUE REV ON 
3875 PRINT !, ! 5 " ; 

3880 IFR C F, 0 ) ~X THEN OC+1 
3098 IF R < F ,• 0 > -0 THEN H~H+1 
3180 NEXT G 

§110 PRINT “ 55" F-l'REM LT RED 
3120 Kip XT F 

3130 PR I NT * PR I NT TRB < 15 > M 5512345678 “ • REMIT RED 
3140 PRINT 
31 4 5 p n k* F 1 693.32 
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VELLOW 

p •) rrirr pprj-.JT 

•pier. 7 pppp 1 77 P , pp 

3160 PRINT TAB(13) n -TTHE HUNAN HAS : "; H : REM ORANGE 

01 pip pp I NT 

3170 RETURN 
4090 FOR f:~-~l TO 1 

4010 P0P Tjrr.~ 1 TQ 1 

4020 F~M 

4030 0:rrj-J 

4040 IF FKF+C. G-fB><>S THEN 4080 
4050 F~F+C 
4060 G=G+D 
4070 GOTO >4040 

4 0 p p J p 0 p 4. f; . Q 4. y» *> /* T Tp j, j 4 J 4 0 
4 pop p.'p py-rT 

4190 IF M-F ANIi M=G THEN 4140 

41 10 Pr:P. r 

4130 0~0~-B 
4 1 3 0i G 0 T0 4030 
4140 NEXT I) 

4150 NEXT C 

4168 RETURN 

5000 FOR B : ~2 TO 9 

5010 FOR B~2 TO 9 

5038 IF A«::B«D>-“X THEN C=C+i 

5030 IF A(B. B>~0 THEN H~H+1 

5040 NEXT‘NEXT 

5045 FOR DB~1 JO 200G: NEXT : PRINT "IT : REM CLEAR 
SCREEN 

5047 POKE 53280•11 : POKE 53281,0 

5049 PRINT~ : REM BONN CURSOR 

5050 IF OH THEN PRINT TREK4> "HTTHE COMPUTER HRS 

WON!i!";C;"TO";H : REM VELLOW 
5060 IF H>C THEN PRINT TAB(6) !i fTTTHE HUMAN HRS LION" 
H; "TO"; f: 

5070 IF H~C THEN PRINT TAB(14) "SUIT IS A BRAN 1 ' 

5080 END 

6000 POKE 53280.> 18 : POKE 53281.>2 
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SSI© PRINT " : REM CURSOR DOWN 
€028 PRINT TRB(1S> " SSREVERSIl’ 1! REM* REV ON BIRD 
P £\? off 

5838 FOR BD-t. TO 1588: HF^T J\T) 

5048 OFT' !RM 
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COMMODORE CHECKERS 


Here is a simple Checkers program which you will find is a lot of fun to 
play. The game follows traditional rules except that there is no penalty 
for refusing to capture an opponent’s piece. Howeverthe computer will 
jump one of your playing pieces whenever it can. 

The computer’s pieces are the solid circles playing down from the top 
of the board and your pieces are the CLUB symbols playing up from the 
bottom. Kings are made automatically. The computer’s kings are 
shown by a diamond shape and yours by the letter K. 

To move a piece, enter the location of the piece you wish to move when 
the computer asks “MOVE FROM”. This is entered as a letter followed 
by a number, such as G6. Likewise enter the location of the square you 
wish to move to when the computer asks “MOVE TO”. You will see that 
the board is printed on the screen with the letters ABCDEFGH across 
the top and bottom and numbers down the side to assist you. 

After you have jumped one of the computer’s pieces, you will be asked 
“JUMP AGAIN (Y/N)”. Enter Y if you can jump again and N if you can’t. 

There is no mechanism to prevent you from cheating but there is no 
point in doing so. A piece which is moved illegally will confuse the 
program and such a piece may tend to disappear from the board 
entirely. 

The computer always has the first move. The number of pieces 
captured is shown above the board after each turn. The game ends 
when either one of you has lost all his pieces or if the computer decides 
it is in a hopeless position and concedes the game. 

Strategy is not the computer’s greatest virtue, but it will put up a 
spirited defence when underattackand it will be very reluctant to move 
into danger. 

The routinefrom line 950 to 1030, called up by line 50 at the beginning 
of the game, sets up the starting conditions. It sets up an array which 
will hold the information required for the playing board. Line 960 
assigns the value of 9 to all the elements of the array. This value 
represents the squares which aren’t used during play, that is the black 
squares. The next line, 970, reads the contents of the DATA statements 
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into 32 elements of the array. These numbers represent the 32 white 
squares used for playing the game. This Checkers program uses a 
system of numbered squares based on a system devised by A. L. 
Samuels. The white squares are numbered from the top left hand 
corner down to the bottom left hand corner. The top row is numbered 
72,71,70,69 and the next row is numbered 66,65,64,63.The next row 
is 59, 58, 57, 56. The next 53, 52, 51, 50 and so on. This numbering 
system means that the computer can keep track of the moves by the 
numerical difference between the starting and finishing square. Moving 
up and to the right always leaves a difference of plus six, moving down 
and to the right minus six, moving up and to the left gives a difference of 
plus seven and down and to the left, a difference of minus seven. I n this 
way any move on the board will result in a predictable number which 
makes the whole system very easy for a computer to handle. 

The DATA statements consist of pairs of numbers. The first two-digit 
number, e.g. 72, represents the number of a square, the second 
numberthe value of the square. The value of minus one means that the 
square is occupied by one of the computer’s playing pieces, a zero 
means it is empty and the value of plus one indicates the human 
player’s pieces. The computer’s kings are minus 2 and the human 
player’s kings plus 2. 

Subroutine 740 to 920 uses this information to print the board on the 
screen. 

The routine called up by line 740 converts the values of the squares 
into CHR$ codes to print up the correct piece on the board. For 
instance CHR$(32) is a blank space and CHR$(113) is a solid circle 
used for the computer’s playing pieces. By changing these values you 
can alter the shapes of the playing pieces. 

Subroutine 2000 converts the CHR$ codes back into the original 
values so that they can be used in the calculations for the computer’s 
move. 

The computer uses lines 390 to 405 to check the safety of its move. If 
after 1000 checks (line 430) it can’t find a safe move it will then 
concede the game. 

Lines 130 to 180 check to see whether the computer can jump one of your 
pieces. Lines 480 to 490 accept your move. Line 490 clears the 
information from the screen ready for the next turn. 
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Lines 540 to 576 check to see which square you have moved from and 
the new square you have moved to. They convert the computer’s 
numbering system to the one used to display the square numbers on 
the screen. 


18 REM CHECKERS 
15 REM "M" IS B 0 HH CURSOR 
2 @ POKE 53280,0:POKE 53231,7 
30 PRINT "IT : REM CLEAR SCREEN 
40 PRINT "TRESIS) "fSFL 

REM RED 


ERSE STAND BV 


50 COSUB 950 


78 Q=0 


90 F 

'OR G-63 

TO 72: IF A<G)=~ 1 ' 

THEN 

A<G)=~2 

1 flfl 

NEXT 




105 

POKE 53 

288,2:POKE 53281,6 



1 1 0 

GOSUB 7 

40 



130 

IF A<2> 

=9 OR R (2X1 THEN 1 

GOTO 

228 

140 

t nr - *-« «~> 

i«' : ;... *•„ ci. 

AND FK2> = 1 THEN A 

<2>=2 

I 

150 

v~ 1 




160 

IF A 12+ 

2(V))<0 AND A <2+2 % 

if if V > 

)>=0 THEN 0=2(V) 

170 

IF A<2> 

=2 AND A < 2-2(V))<0 

AND 

fl (Z--2#X (V)) 


THEN Q= 

-2 < V > 



1 88 

IF QO0 

AND 2+2*Q>23 THEN 

GOTO 

1 258 

J. 

200 

IF" V'-“2 

THEN GOTO 228 



210 

V~2 : GOT 1 

0 160 



220 

2-2+1 




230 

•{• p* “~i 

THEN 130 



240 

TF 0=0 ~ 

THEN 340 



258 

A C2+Q) •” 

8:A < 2+2*0 > =A < 2) : A(! 

Z )=0 


260 

2 = 2 + 2 $Q 

; CO-CO+l' GOSUB 740 



278 

0 = 0 : V=i 




280 

IF A(2+ 

2 (V ))<0 AND A( 2 + 2 * 

( X <V ) 

)>=0 THEN 0=2 < V) 

290 

IF QO0 

AND Z+2#Q>23 THEN 



310 

IF V =1 

THEN V=2 : GOTO 288 



320 

GOTO 48 

0 



348 

1 |=fi: pssfi 




350 

2=24+IN 

T CRNBC 1 >*49) : U=U+1 



360 

IF < A (2) 

=9 OR A(2)=-l OR A 

if [7 j s::; - 

•2 OR A( 2 )= 0 > AND 


IK1080 

THEN GOTO 350 




c 
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385 IF A<Z+X<V) >09 THEN 428 

398 IF A(Z+X<V>>=8 flHD A(2+2#X<V)X>.1 AND A<Z+2#X 

<V> +1»~1 THEN Q=N(V> 

395 IF A(2+X(V> >=9 FlHD U>150 THEN Q=XW 

408 IF R(Z>=2 FIND A(Z-X<V>)=0 FIND R(Z-2#X<V) + 1»-1 

THEN Q=-X(V> 

465 IF U>600 AND ft(Z>=2 AND FKZ-X(V))=9 THEN 
Q=-X(V) — 

410 IF QOS THEN GOTO 450 
420 IF V=1 THEN V=2:Q0TG 390 
430 IF IK" 1008 THEN GOTO 350 

440 PRINT "M" TAB(10) "I CONCEDE THE GAME":END 
450 A< Z+Q)™H(Z) : A< Z)=0 
4 3m iii islJB 74 m 

480 PRINT: PRINT JF|E(8) "SHOVE FROM": : REM PURPLE 


482 

INPUT A 

* 


485 

PRINT " 

M" TAB( 8 ) "MOVE TO".: 


487 

INPUT B 

$ 


490 

FOR GO= 

1743 TO 1863: POKE 1313 , 

32 : NtXT GG 

510 

FOR 14=1 

TO 2 0=0 


528 

TF 14=1 

THEN COA$ 


530 

IF 14=2 

THEN COB* 


548 

7=--24$ ( 

CO" 09") -25$ (r:$=" E9" 

-26$<CO"C9" 

542 

IF 200 

THEN GOTO 580 


544 

2=~27$< 

CO" A9") -3@$ (CO" H 8 "; 

-31#<CO"F3" 

546 

IF 200 

THEN GOTO 580 


548 

2=-32$( 

CO "D 8 ") -33$ (CO" B 8 "I 

-37$ (CO" G7" 

550 

IF ZO0 

THEN GOTO 580 


crcr.“, 

•JJdL 

Z=-38$< 

CO" E7" > -39$ (C$=" 07") 

| -40$(C$="A7" 

crc: a 
•JJ-i 

IF ZO 0 

THEN GOTO 580 


crcr 
. j.. j I“» 

7s- 43 $( 

CO"H 6 ">-44$ <CO"F 6 ") 

'-45$<CO"D6" 

558 

IF 200 

THEN GOTO 580 


560 

2=-46$( 

CO" B 6 ") -50$ (CO" G4 " I 

'~51$<CO"E4" 

562 

IF ZO0 

THEN GOTO 580 


564 

2=-52$( 

CO" C4") -53$ (CO" A4"; 

'-56$(CO"H3" 


(CO"F3 

") 


566 

IF 200 

THEN GOTO 580 


568 

7=---! = ;8$ C 

CO " D3 ") -59$ (CO" B3") 

'~63$CCO"G2" 

578 

IF ZOO 

THEN GOTO 580 



44 








S7- 

v. ! i i.*. 


!>•«. I.~ 


-64*<C$="E; 


-65* ( C$- 


1 i:p 


-66* (C$-" R2") --69* 


c$e 11 h 1") -70# (C$ * "FI") 

574 IF ZO0 THEN GOTO 580 

576 Z----71 * (C$«" L1") -72* < C$~ "El" > 

580 IF W-l THEN D-Z 
590 IF W-2 THEN E=Z 
688 NEXT : A$=""=B$="" : C$="" 

620 A < E > = R (D > : fl < B) = 0 

650 IF RES<B-E)>7 THEN A<(B+E>/2)=0:HU=HU+1 
670 GOSUE 740 

680 IF FIBS OHS »7 THEN PRINT "M" TflE(4) "JUMP 
AGAIN (V/N)".: 

685 IF RES(B-E)>7 THEN INPUT U$ : IF U$C>"N" 

THEN GOTO 480 

687 FOR GO- 1744 TO 1783:POKE GG,32:NEXT GG 

690 IF HUCl2 ANB C0C12 THEN GOTO 60 

780 IF HU-12 THEN PRINT "M" TAB<4} "THE HUMAN 

WINS":END 

710 IF CO"12 THEN PRINT "M" TRE(6) "I WIN I WIN!!!" 
740 GOSUE 1500 

770 PRINT :PRINT "M" TAB(8) "^COMPUTER="; CO; 

"HUMAN:";HU:REM HOME WHITE 
788 PRINT:PRINT:PRINT 

785 PRINT TAB Cl 4 > " SliRBCBEFGH" : REM REV ON GREEN 
790 T--2 : FOR l<=0 TO 3: PR I NT TAB<14):F0R J=0 TO 3 
880 PR I NT " lik" CHR$ < R < 72-J--13*K) >; : NEXT :T=T+1: 


REM BLACK CCOMMKEV + > CVAN 
820 PRINT "!73" INK <J+K>/2)+T: REM VELLOW 
830 FOR J—0 TO 3:PRINT TAB a4) "k" CHR$CA<66-J-13 
*K>>; "BBS" : :REM CVAN BLACK 
850 NEXT:T=T+1 

860 PRINT "HI" I NT (( J+K>/2) +T : REM VELLOW 
R7pi NFXT 

880 PRINT TABC14)"SWABCBEFGH":PRINT:REM REV ON 
GREEN 

890 GOSUE 2000 
920 RETURN 

950 BIM A < 99) : X (1)=--6: X < 2) =-7 
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968 

FOR 2 

---•1 

Tf 

99:H<Z)=9 

: NEXT 






970 

FOR 2 

*1 

TC 

32:READ 1 

:READ C 

R, 

•:e>= 

«c 

NEXT 


980 

liFUFi 


*1 

i 

71,1,70,1, 

£9.1 : f,fx 

1. 


1, 

64,1. 

6 


59, 1, 

3 8 .* 

1, 

57, I-, 56, 1 







99@ 

BATA 

53 .• 

0F 

52,0,51,0, 

50.0,48 

■ 0. 

. 45, 

, 0 , 

4 4, k) , 

, 4 

1800 

BATA 

40 


■ 1,39,-1,38 

,--1,37,- 

~L 

i .2' ,i 

.-i 

.,32,- 

-i 


1 005 

BATA 24,-1 


1 0 1 0 

00=0 : H!J=0 


1020 

PRINT "73" : REM CLEAR 

SCREEN 

1030 

PETIIRH 


1508 

FOR M=24 TO 72 


1. 518 

IF ACM) = 1 THEN A<M) = 

209 

1520 

IF ACM)=2 THEN A<M) = 

113 

1530 

IF A (. M) =0 THEN A(M) = 

32 

1540 

IF ACM>=~1 THEN ACM) 

= 120 

1550 

IF ACM)=•-••2 THEN FKM) 

= 75 

1560 

NEXT 


1570 

RETURN 


2800 

POP M= 24 TO 72 


20 1 0 

l'F FKM) =209 THEN FKM 

) = 1 

2028 

IF FKM) = 113 THEN FKM 

,i ::z J 

2030 

IF FKM) =32 THEN FKM) 

=0 

2840 

IF FKM> = 120 THEN FKM 


2050 

IF FKM) =75 THEN FKM) 

sT.!. 

2860 

NEXT 


2878 

RETURN 
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BLOCKOUT 


This is a very impressive, fast moving game which will test your 
reactions and skill. The game of Blockout can be played by one or two 
people. The single player game can be played from the keyboard, but in 
the two player game one player will need a joystick which should be 
plugged into port number two. 

In the one player game you begin near the left hand side of the screen 
and rush off towards the opposite side of the playing area, leaving a trail 
behind you. The object of the game is to keep moving for as long as 
possible without hitting a wall or your own trail. In the two player game 
you must avoid your opponent’s trail as well as your own while trying to 
trap him into making a mistake. Player one leaves a red trail and player 
two, starting near the right of the screen, leaves a blue trail. 

In the two player game, player one uses the keyboard for controlling 
his man. The “A” key moves him up the screen and the “X” key moves 
him down the screen. The key and the move him left and right 
respectively. Player two uses the joystick plugged into port number 
two. In the one player game either the keyboard or a joystick can be 
used. 

At the beginning of the game the function keys are used to select the 
game options. Function key number one is used to clear out the 
previous high score if you wish to do this. Key number three chooses 
the type of game you wish to play. The options are two players, one 
player with joystick or one player with keyboard. Key number five is 
used to select how many game turns you wish to play. When you have 
the options you want displayed on the screen, press function key 
seven to start the game. If you wish to finish playing, pressing function 
key seven will return you to the title screen. 

Line 15 prints up the playfield. Lines 20 to 27 read the keyboard and 
print the trail for player one. XI %$ is the variable which controls the 
screen position of player one. Lines 30 to 37 read the input from the 
joystick and print the trail for player two using variable X2%$. 

The function keys are read by lines 40 to 60. These keys are used to 
select the game options and start and finish the game. Lines 65 and 67 
use P$ to place a string of characters onto the screen. T% keeps track 
of the location of P$. 
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The routine in lines 70 to 80 is used to provide a precise time delay 
using Tl$. This routine also checks to see whether function key seven 
has been pressed. If so, the game is terminated and the title screen is 
displayed. 

The collisions between players or a player and the wall are detected by 
lines 85 to 100. If there are two players, this routine allows any 
unaffected player to continue on until he has a collision. 

The scores are printed up by lines 105 to 115 and lines 120 to 135 tell 
you which player has won the game and also display the bonus points. 

Lines 140 to 150 check to see if the game is in one or two player mode 
and return the program to the appropriate line to start the loop again. 

Line 155 sets up the variables for the start of the game and line 160 
calls up the subroutine which prints the scores. The title is printed by 
the PRI NT lines in 161 to 185. The arrays and variables are initialised in 
lines 205 to 227. 

This very clever program was written by Gary Ryan of Canberra. 


5 REM BLOCKOUT, BV G. RVFlN 
10 GOTO 205 

15 PRINT BR$ : FOR Z=1.TO.21=PRINT" r;TAB(38); "§r 
:NEXT:PRINT BR$;”H" : RETURN 

16 REM IS ON + KEY "SS" IS HOME CURSOR 

20 GET K$ = BX=RSC < K$+Z$ > : PX= 1 : BX=BX+1 = PR I NT 

;bx 

21 REM HOME LT RED BONN CURSOR RIGHT CURSOR 

22 IF KX(BX> THEN LKX=KX<BX> 

25 X1 X=X 1X+LKX: TAX=SI1X+X 1X: LCX=PRX~ (PEEK ( TAX) *32 ) 
:P0KE TAX,CIX 

27 POKE CM+X1X, L. 1X : ON LCX GOTO90,20,85,30 
30 BX-F'EEK (J) AND 15: PX*2 = BX*BX+1 •' PR I NT 

"^Diililifiiiikliil 11 BX: REM SAME AS LINE 20 
32 IF JX(BX) THEN LJX=JX<BX> 

35 X2X*X2X+LJX=TAX-SMX+X2X:LCX=PRX»(PEEK(TAX)=32) 
: POKE TAX,C2X 
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37 POKE CM+X2X,L2X : 0N LCX 00T099,38,35,28 
48 GET K$ : XX=ASC < K#+CHR$ < 8 > > : OX* 1 - < < XX* i 34) +2* 

( XX* 135 > +3*( XX* 133) +4* < XX* 136)) 

43 OH GX GOTO 48,45,58,55,68 

45 PLX-PLX+1: PL%=~<PLX<3 ) WLX • TX* 1389: P$*Pl$ ( PLX ) 

:CX~13 : GOSUB 65 : GOTO 48 

58 RX=RX+1: RX* .< RX<5) W.X ■ TX* 1894 : RMX=RNX < RX > : 

P$=$TR$<RMX>+" " 

52 CX~13 : GOSUB 65 : GOTO 48 

55 HSX=8: 7X *i 88 i : P$=" 88 " : CX~ i g: Q03UB65: GTiTn 48 

68 RETURN 

65 FOR Q“i T0 LEN (P$ > •' AX=ASC < MI D$ (P$, Q, 1) >: POKE 
T X +U 1, Fi X +6 4 % (R Xy 6 3) 

67 POKE CM -1024+TX+Q-i, CX : NEXT : RETURN 
78 GET K$ : IF flSC(K$+CHR$<8) ) = 136 THEN 169 
75 IF VfiL<TI$)OT THEN 78 
88 RETURN 

85 PR.7^1 : OH P7 GOTO 38,28 

98 SX< PX )=SX( PX )+BX■IF SX< 1> >HS X THEN HSX=SX<1) 

95 IF SX''2)>HSX THEN HSX=SX<2> 

199 TI f = 11 808888": T=3 : GOSUB 78 : GOTO 128 


185 

PRINT "3! 


PLR <2>" 

186 

REM CLEAR 


LT GREEN 

■! f.;-? 

i y i 

LX=4:BX=S 

118 

LX=20 : BX* 

112 

LX=35 : BX* 


115 PR I NT " SSSM" TAB < LX- 1 NT (LEN < STR$ (BX ))/2 )) BX ■ 
RETURN 

128 GOSUB 185 : PR I NT " ; TAB (11);" 3BONUS FOR 

ROUND"; RNX; "W 

121 REM HOMELT RED BONN CURSOR LT BLUE 

122 PR I NT T AB < 12 >" GOES TO PLR VER" PX 

125 PRINT " £ m" ■PRINT TAB <15 > BX" POINTS" : TIT" 

"000008":T~4:GOSUB 78 

126 REM LT GREEN BONN CURSOR 
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130 

BM= 18 

0 : RNM= 

pKi;.; 

:+i 

■ LKM= 1 

: L J’ 

1=-1: IF 

RH 

V"V 

RMM 


THEN 

200 









•f OfiS! 

V 1 V-CJOO • vov 

»''» j. u c U /‘i«“«. i U 


>1 : 

OOSUB 

105 

: GOSUB 

15 : 

OH 

pi y 


GOTO 

140.. 14 

5 .» 1 

50 







140 

PRM=3 

: GOTO 

20 








145 

PRM=1 

: GOTO 

30 








150 

PRM=1 

: GOTO 

20 








155 

$V ( 1 ) 

=@: SM< 

2 *;» ~ 

=0 : 

rnm=g • 

PLM= 

=PLM+1 : 

GOT 

0 

130 

160 

PL’1=0 

: RM=0 : 

rn;* 

:’,=0 

: GOSUE 

i 10 ; 

5 




161 

PRINT"3®flMM)$ 

Mi 

=:%=5 

ss/ss. 

CL:/®// 


m 





REM HOME DOWN PURPLE 


162 

PRINT" 

i"TAB <38 

\ * HXftll 



165 

PRINT" 


v.;. 


1 i: if" 

167 

PRINT" 

•g: :g: jg 

Xv 


1 ii !" 

170 

PRINT" 

$: $ 

$: 


Xrj: xg :^: ; n 

172 

PR TNT" 

fg: *$• 

:#:X* : ; : : :;X*;: 

M 1 ;$ 

•gggig: jg: 

175 

PR J J-.JT " 

•g: i# jg 

W. V/. V* VAVA «.V 

gg 

•g: ;g: :g 

•g: u 

1 00 

PRINT" 

xg x^xvX::; 

:*£:jx$:§ Si* :£:• :g 

x*x;:* ‘yyyy.y. 

i :ij§ i" 

1 i**v7' 

•L Oc 

PRINT" 

It" TAB < 38) 




185 

PRINT" 



G. Rt AH.. 

1383Miii;* n 

1 0-7 

x t 

PRINT" 

MM JISFIS IXLEAR HIG 

M crppp 

n 

i fir:' 
i OO 

REM DOWN CURSOR 

ORANGE REV ON 

LT BLUE 

REV OFF 

190 

PRINT" 

M J3SF3 

i PPLAVER OPTIONS: 2 

PLRVERS 51 

102 

PRINT" 

M ;3SF5 

■ SELECT NO. 

OF ROUNDS: 5" 

195 

PRINT" 

M J1SF7 

■ 23START GAME 

/ABORT 

GAME": 


GOSUB 

40-'GOTO 240 



280 

PRINT" 

MMMMMMMMMMMMMMMM"TAB < 26 > 

"mOAME 

OVER" '• 


TI#="800000" : T#= 

"09":GOSUB 70 



201 

REM HOME CURSOR 

DOWN YELLOW 



202 

PL. "1=0: 

R‘i=0 : rn:-i=0 

:GOTO 160 



205 

DIM KM 

< 255 >; JM < 1 

5 > .. RNM < 4 > .■ S’A < 2 

>, PL# <2 

> : 


j;i(i4) 

=-40: JM < 13 

>=40:JM<5>=1 



207 

JM <6 > = 

•1 : JM<7>=1 : 

JM<9>=~1:JM<10 

>=-1: J’: 

<ii>=-l 

210 

KM < 65 > 

=-40 NCI <97 

> =-40: K’l < 83 > =- 

40 : KM <115 > = -40 : 


K% < 


1 : K'A 


< 46 > = 1 




K’ 


•.» / o «“i • 


=40: KM < 1 20 > ==40 = KM <67 >=40: K! 


KM<44>=-1:KM<60)=~1 
215 RNM<0> =5:RNM< = RNM<2> =20:RNM 

RNM (4 > = 100 


yo >=40 * 

>=50: 
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228 Sh1"-== 1824 : CM=55296: J“5632@: C1 '/.* 168: 168 = 

LI 8*2 ■ L28*6 - RM8*5: Z$*CHR*<8> 

-i -i cr pi p .£ -- 11 ; :|j 1 ' 

: PL*(8>-■"2 PLAYERS" 

226 REM PMRPLE 

227 PL* < 1 > *" 1 \t •- ST ICK": PL* < 2) =" 1 K y BOARD" 

238 POKE 53274,8:POKE 53265,PEEK < 53265) AND 159: 

POKE 53269,8 

232 POKE 53278,PEEK<53278 > AND 15:POKE 53272,21 
235 POKE 53288,0:POKE 53281,0:PRINT CHR* (9> ;CHR* 

( 142);CHR*(8> : GOTO 168 


51 



STOCK EXCHANGE 


Your Commodore 64 will now give you a chance to make a fortune on 
the stock market. U nfortunately if you manage to make a million dollars 
you will find it very difficult to spend because your computer only plays 
with computer dollars which can’t be spent outside the program. The 
good news is, of course, that if you go bankrupt playing this game the 
computer can’t make you pay off your debts. 

You begin the game with a limited amount of money and you have to 
manage this money carefully, buying and selling shares, to set yourself 
up as a successful investor. 

The computer will display a balance sheet on the screen. This will show 
you the status of four companies, how many shares you hold in each 
company, the price per share, the price you paid for the shares if you 
hold any and the net profit or loss on your investment. The headingsfor 
these columns are provided by lines 160 and 170. Type these lines in 
exactly as they are shown in the listing, including the spaces. 

If you attempt to sell shares you do not hold the computer will charge 
you with FRAUD. If you try to spend more money than you have you will 
be declared bankrupt. 

As in real life, your whole share portfolio can be rendered worthless by 
a sudden collapse in the share market. 


10 REM STOCK EXCHANGE 
15 OOSUB 600 

20 POKE 53280,6 : POKE 53281,2 

30 PRINT "IT : REM CLEAR SCREEN 

50 :I=10:B=1000 

100 DIM A(3,5) 

j 10 FOR fl=i TO X 

115 A f 1 , A'? = I NT i 200#RNB i 1 ■' •' +fi 

120 A C 3,A > =0 

130 NFXT A 

140 PRINT "IT ; REM CLEAR SCREEN 

160 PRINT "WKHCO. VOU PRESENT ORIGINAL. 

PROFIT" : REM BLACK 
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170 PRINT "NO. HOLD PRICE PRICE /LOSS" 
100 FOR 0=1 TO X 
190 Z=fla,fl)-R(3,fl) 

200 PR I NT " m" fl; TAB (X+2 > 1 fl < 2, fl >; TAB < 13 > A (1, A > 

TAB<24) A(3.- A); TAB(33) Z 

202 REM VELLOW 
210 NEXT*A. 

230 PR I NT " niSMBANK "; B; " IHTEREST RATE"; I 

231 REM LT BLUE 

240 PRINT "fcWHICH COMPANV (1-4)"; 

245 INPUT A 

250 PRINT:PRINT "*hoUI riRHV SHARES - A NEGATIVE 
255 INPUT C 

270 IF C>0'THEN FK3, A)-AC 1.. A) 

280 B=B--C#R(LA) 

290 IF BOO THEN GOTO 410 
30(3 A < 2, A) =A ( 2, A ) +C 
310 IF A(2,A)<0 THEN GOTO 500 
220 FOP R=1 TO X 

330 Aa,A) = INT<ABS<A<1,A> +fl*50*<RHBC1> -RNB <1)))) 
340 NEXT fl 

350 I*INT<ABS <10+RND(1)#S-X> +1) 

360 B*INT<B+B*I/100> 

365 IF B>999999 THEN GOTO 700 
370 IF RNB < 1)>.05 THEN GOTO 140 
375 FOR DO 1 TO 1000: NEXT DD 
380 PR I NT " Zl": POKE 53280,0: POKE 53281,6: reM 
CLEAR SCREEN. 

385 print tabcs) "ihthe stock market has 

COLLAPSED":REM VELLOW 
390 GOTO 390 

410 FOR DO-1 TO 1000: NEXT DD 
420 POKE 52280. 2: POKE 53281,10 

430 PRINT :REM CLEAR SCREEN CURSOR DOWN 

440 PRINT TAB(6) "£######## BANKRUPT #######": 

REM BLUE 
450 GOTO 450 

500 FOR DB=1 TO 1000:NEXT 
505 PRINT : REM CLEAR SCREEN 
510 POKE 53280,11:PGKE 53281,0 

520 print ''mmmm' ■■ rem cursor down 
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538 PRINT TRB< 10> ”&{%%%% FRRUB ’iKK'/.K" :RFM PURPIF 
54© GOTO 540 

6O0 PRINT :REM CLERP SCREEN 

61O POKE 53289,4•POKE 53281,5 

620 PRINT"REM ""CURSOR BONN 

63G PRINT TRB( 6 ) M STOCK EXCHANGE $$$$$" 

660 FOR TT“0 TO 15 
650 POKE 53280*. TT" 

660 FOR BB=1 TO 100:NEXT BB 
670 NEXT TT 
680 RETURN 

700 FOR im~ 1 . TO 1000: NEXT BB 

710 PRINT "i":RFM CLEfip SCREEN 

728 POKE 53280.. 5 : POKE 53281,4 

73@ PR I NT"" MSjsMSWM'”REhfcURSOR BONN 

740 PRINT TAB< 6 > '"£&$$ VOU ARE R MILLIONAIRE $$$": 

REM BLUE 
759 GOTO 750 
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EARTH BASE ONE 


Your duty is to defend earth from the alien invaders riding gravity 
beams down to the surface of our planet. Your weapon is a laser 
cannon and you must hit each alien before it reaches the ground. 

To move your laser cannon left and right use the “L” key and the key 
respectively. The “A” key fires the cannon. 

When you hit the first alien, two more attack. Remove these two and 
three begin to descend. This continues until all of your 5 lives are used 
up. You lose a life each time an alien reaches the ground. 

Line 50 DIMs the arrays used in the program. Line 63 and line 65 set 
the starting positions for the aliens. Line 70 is the starting co-ordinates 
foryour laser cannon. Line80 starts the alien off on itsjourneyto earth. 
After you hit an alien, line 90 checks to see whether there are any other 
aliens still on the screen. If there are, the loop continues dropping the 
remaining aliens down the screen. If the array is empty, the program 
goes to line 250 to start off the next wave. 

Lines 100,105,120 use the statement PEEK (197) to read the input 
from the keyboard. Line 105 checks to see whether you are moving 
your laser cannon left (K=42) or right (K=50). Line 120 checks to see 
whether you are firing your cannon (PEEK(197)=10). 

Variable Y is the location of your missile. Line 130 checks the positions 
of the aliens to see whether they have collided with a missile. Line 140 
alters the position of the missile and checks to see whether it has hit an alien. 

The routine beginning at line 500 and running to line 580 controls the 
explosion when an alien is hit. Line 500 removes the alien from the 
array. Lines 510 to 520 POKE the explosion onto the screen and line 
540 increments your score. Line 550 turns the explosion back, which 
creates the very effective white flash followed by the black aftermath 
of the explosion. 

Earth Base One is based on a program by Matthew Boek. 
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5 REM EARTH EASE ONE 
7 PRINT "IT :REM CLEAR SCREEN 
9 POKE 53280,0:POKE 53281,11 

18 PRINT "WiMfiflMsM" TAB(8) "IS#*# EARTH BASE ONE 
#*#" : REM ORANOE 

28 PRINT "SWWDM' TAB'ISO "PRESS ANV KEV TO BEGIN" 

30 GET AT : IF AT--"" THEN 30 
48 PRINT "IT 1 :REM CLEAR SCREEN 
58 BIM A (20 >, AX (20 >: N~ 1-1.1 =5 

60 PR I NT " UK!"; TAB < 5 > " S^SCORE : " I S; TAB <125) "LI VES :" 
LI: IF M>20 THEN N«20 

61 REM CLEAR SCREEN HOME REV ON PURPLE 

63 FOR I = 1 TO 10: A<I)-l070+ (I*2) : API(I) = 1: NEXT:H~0: 

NL“N : B=8 

65 FOR 1 = 11 TO 20:A(I> = 1186+ ( I *2 > : API ( I) = 1 : NEXT 
78 X=1954 : 00=54272 

80 FOR I = 1 TO N:POKE A (I),88 : POKE A <I> +C0,1=NEXT 
90 FOR SH= 1 TO N : IF AXCSH>=0 THEN 258 
95 FOR U=1 TO 1@8/NL:NEXT 
100 K~PEEK(197 > 

105 IF KO-64 THEN X1=X : X=X+(K=42ANDX> 1944>••■•<K=50 
ANDXa983) :POKE XI,32 
110 POKE X,65 :poke X+C0,8 

120 IF PEEK<197)=10 AND B=8 THEN V=X~40 : POKE Y,93= 
POKE Y+CO,0:1 

138 POKE A(SH>,32:A(SH)=A(SH>+40:IF PEEK(A(SH)>=93 
THEN 580 

132 IF A (SH I'M 944 THEN 1800 

135 POKE A(SH >,88:POKE A(SH >+C0,1 

140 IF B=1 THEN V1“V:V=V-40:IF PEEK<V>=88 THEN 500 


150 IF B=1 THEN POKE V,93:POKE V+CO,1 


POKE VI,32 


160 IF B=1 THEN IF VC1103 THEN B= 8 :POKE V,32 
258 NEXT:FOR hb =1 JO 15:NEXT:GOTO 39 
580 FOR G=1 TO 20:IF A(G>=V THEN AX(OI'=0 
585 NEXT 

518 C=V+CO:POKE V,160:POKE C,1:R0KE V-1,160: 

POKE C-l,1:POKE V+1,160:POKE C+1,1 
520 POKE V+40,160 : POKE C+40,1:POKE Y-48,160 : 

POKE C-40,1 
540 8=8+50 
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558 POKE C.. 8 : POKE C-l,8 : POKE C+l, 0 : POKE C+40,0: 
POKE C--48 .■ O 

578 NL=NL~1 : B=0 ; H=H+1 : IF H=N THEN f-K-TH 1: GOTO 68 
5P0 GOTO 258 

1880 PRINT :REM HOME DOWN CURSOR 

1818 PRINT TRB< 18) " 3RIAN Fill ESI HRS LANDED!!" : REM 

REV ON VELLOW REV OFF 
1028 !.. I “L. I -1 • IF LI =8 THEN 1100 
1800 FOR DD-l TO 2888 : NEXT DD:GOTO 68 
1100 FOR DD=1 TO 1580:NEXT DD 
1110 PRINT " 

1120 PRINT TAB<10} "“Ml THE GAME IS OVER 1" : REM 
REV ON ORTNEEN REV OFF 

1130 FOR DD=1 TO 1500:NEXT DD 
1140 PRINT TRE(11) "ANOTHER GRME (VXN)": REM 
ORRNGE 

1158 POKE 198,8 

1168 GET R$:IF m~"" THEN GOTO 1168 

1178 IF R$-"V" THEN RUN 

1180 PRINT "II": END : REM CLEAR SCREEN 
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ASTEROID 


You are the administrator of a mining colony which has been established 
on a desolate piece of space rock deep inside the asteroid belt. Your 
isolated community exists by mining the rare ore at the core of the 
asteroid and selling it to earth in order to buy the food and oxygen 
supplies your people need. 

You must manage the affairs of the colony so that it produces enough 
ore to survive, but you must not waste your scarce resources doing so. 

You will be given a computer print out telling you all the information you 
need, including the level of your food and oxygen supplies and the cost 
of maintaining your colony peryear. By mining the optimum amount of 
ore you should be able to survive on the food and oxygen the income 
will allow you to buy. 

Apart from rare attacks from claim jumpers and other assorted bad 
guys, this game isn’t based on random factors or chance. It will involve 
a great deal of management skill to survive for any length of time. Each 
time the game is run the price of the ore, oxygen and food units will be 
different. This prevents the game from becoming predictable. 

A look at the program listing will show that the program is quite straight 
forward. The yearly printout begins at line 120. Lines 80 to 110 provide 
warnings of potential problems when they are required. Line 720 gives 
you the opportunity to trade your ore. The routine from line 7000 to 
7150 works out the result of any attack by outsiders. 

The clever little routine at the beginning of the game is provided by the 
routine from line 9000 to 9150 and is based on a routine developed by 
Matthew Boek. The routine takes a string 40 characters long, in this 
case line 9010, and then scrolls it from right to left across the screen. 
You can turn this routine to your own use by replacing the print 
statement in line 9010 with any 40 character string. The symbol used 
in the print statement is obtained from the “Q” key using SHIFT. 
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1 p£M ASTEROID 

2 REM "E!" IS CLEAR SCREEN 11 W IS CURSOR DOWN "ST 
IS REV ON "S" IS REV OFF 

F fifipj !D ORFlFi 

1 -9 DEF FNR < X > » IN T < RHD c 1 > #X> + 1 :00SUE 3888 
IF PfiXF FPS'Ari £ * PfiXp F3RR1 ,4 

2 0 y R:= y p i : F KF !< -i-1N T (F !<X < 2 + F N R (1 8 > > ~ F K / < F N R < 15) + 3 > > 

:GOTO 718 

3 g p p r H T 5 ' >:E 0 M p U T E R R E P 0 R T : ” 

40 TF iXOJ#FK THEN 3888 

50 ip f<FR*FK THEN 3010 
68 IF f:R <1 THEN SOSO 
78 IF FK<2 THEN 8838 

80 IF FK<13 THEN PRINT "SW'IWARNIHG : POPULATION IS 
HEARING CRITICAL" : GOSUB 8799 
88 REM EL UE 

90 IF ’o< 2 *CJ*FK THEN PRINT "3M3WARNINC : OXVOEN 
8 UPPLV LOW" : GOSUB 8790 : REM BLUE 
100 IF F<2$FR*FK THEN PRINT "SW^WARMIMO: FOOD 
STOCKS LOW" : GOSUB 8799 : REM BLUE 
119 IF CRC2000 THEN PRINT "EEWSIWARHINO : CASH ON HAND 
RUNNING LOW":GOSUB P.79Q 
112 REM BLUE 

jSs pptht''"" iwTHERE ARE"; FK; "PEOPLE ON THE ASTEROID" 
:REM RED 

125 PRINT "WIN THE VEAR'MVR 

1 30 pp t kit : pp i wy »;»|"ASH : $ "; OR : PR I NT " MM AIHTEHRNCE 
COSTS: $";RE 

140 PRINT "WORVGEN cnsrs : $" ; 00 ; "PPR i iK 5 IT" 

159 PRINT "MOXVOEN NEED"PER PERSON 7 "QJ:PRINT 
"ISFOOD: ";F; "UNITS": 

160 PRINT "MISPRESS ANV KEV TO CONTINUED" : REM 
BLACK RED 

179 GET Q$:IF Qf”"" then cnTG 170 
ISO RETURN 
700 GOSUB SO 
710 PRINT "F!" 
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720 PRINT "!*KHOW MANY TONS OF ORE WILL V'OU TRADE?" 
:REM RED 

? 3 @ PRINT "MDXYGEN USAGE WILL BE";AC;"PER TON 
735 PRINT "MEACH TON SELLS FOR"; RP; : INPUT B 
740 IF B$RC>0 THEN PRINT "SHOT ENOUGH OXYGEN" : FOR 

DD=1 TO 1500:NEXT:GOSUB 8700 
745 IF B$RC>0 THEN GOTO 720 
750 CR~CA+B*fiP : 0=0~B^RC : PRINT "”j" : GOSUB 30 
740 pp i My " iifiFOOD COSTS $"; FC;" PER UN IT"” ~ 

765 PRINT "PERCH PERSON NEEDS";FR:"UNITS ($"; 

FC3KFR; "EACH)" 

770 print "»f";FK*FC#FR;"FOR THE ASTEROID" 

780 PR T NT " 3STTH18 WILL LAST " VI NT < FX (FR*FK> ); " VEARS 

RT THE" 

785 PRINT "^PRESENT POPULATION" 

780 INPUT "iflHOW MUCH FOOD WILL YOU BUY";? 

785 IF C'*FC>CR THEN PRINT "PNOT' ENOUGH MONEY" : 

GOTO 780 

309 p=F+C$FC : CA“Cfi-C#FC : PRINT "7!":GOSUB 30 
858 PRINT "IHHOW MUCH OXYGEN WILL. YOU BUY" 

855 PR I NT " ^PRESENT" STOCKS™!.-! I LL."'lRST ~ FOR"; I NT ( 0/ 

( 0 J*FK))"YERRS" 

960 PRINT "*!RT THE PRESENT LEVEL OF POPULATION"; 

: INPUT D 

365 IF D#OC>CA THEN F!. = l 

870 IF B*OC>CR THEN PRINT " :*!f-!OT ENOUGH MONEY" : FOR 
BD=1 TO 1500:NEXT:GOTO 850 

388 PRINT "7 ":IF FMR ( 5> =2 THEN GOSUB 7000 
3000 F“F~FK$FR:CA=CA~RE~B*OC : 0=0+D-FK*0j : GOTO 20 
3000 V“FNR<5) : R$=" gfTHE ASTEROID IS DEAD" : FK*FNR 
( 40)+80 

3005 CR= I NT < 7# <FNR <.880 ) +790 ) /FNR < 3 ) > 

30i8 FC=FNR <7):AC=FNR i 3 > +1 : F-FNR(508)+2000:0*2000 

+FNR<1590):AP*30#FNR<RC > 

3020 RE*FNR <480 > +280 : FR--FNR < 5 ) + 1 ; OJ=FNR < 3 > +2 : QC= 
FNR <7 > : O=2008~FNR < 1500) 

3030 RETURN 
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7000 J«FNR<6> : PRINT "MSTHE STRUCK HRS BEEN 
ATTACKED BV" 

7010 OH J GOTO 7020,7080,7040,7050,7060,7070 
7020 PRINT **3SFI FLEET OF SIRIAN 3HTP8": GOTO 70R0 

7030 print "Renegade sprcemihers" - goto 7000 

7040 PRINT "SMARTIAN SPACE PIRATES":GOTO 7080 
7050 PRINT "MCALLISTAN CLAIM JUMPERS":GOTO 7080 
7060 PRINT "MR ROBOT CONTROLLED SURVEY SHIP" : GOTO 

7080 

7070 PRINT "MR VENUSIAN BATTLE CRUISER" 

7080 FOR BB=1 TO 1508 : NEXT BB 

7083 Z= 1 +1 NT i FK/ 'I FNR (15) +1 > ) : PR I NT " MTHERE HERE" 

Z ;"PEOPLE KILLED" 

7085 GOSUB 8690 

7090 21 =FNR (. 250 > +250 : PR I NT "MPAMAGE WAS $";Z1 
7100 Z2=FNR < 300 > : Z3=FNR < 380 ): PR I NT " MFOOB STOCKS 
HAVE FALLEN BV";Z2 
7110 F=F-~Z2:FK~FK-~Z:Cfi-CA-Z1 

7120 PRINT "M"Z3;"UNITS OF OXYGEN HAVE BEEN LOST" 

7130 PRINT "MPRESS ANY KEY TO CONTINUE" 

7140 GET FT: IF p$=:»» THEN GOTO 7140 
7150 RETURN 

8080 PRINT AT: PRINT "MYOU RAN OUT OF OXYGEN IN 
YEAR";YR : GOTO 8588 

8810 PRINT AT: PR I NT »MVOU RAN OUT OF FOOD IN YEAR" 
VR: GOTO 8588 

8028 PRINT AT:PRINT "SflVOU WENT BANKRUPT IN YEAR" 

YR: GOTO 8580 

8830 PRINT "MYOUR POPULATION HAS FALLEN TO";FNR 
(26) : CA~FNR(308) 

8840 PRINT "MBA YOU WISH TO GIVE UP NOW <1>" 

8058 PRINT "MOR BO YOU WISH TO ATTEMPT TO TRADE" 
8068 PRTNT "MDUT OF TROUBLE (2)" 

8078 INPUT B : IF B=1 THEN 8500 E 
8080 PRINT "MI HOPE YOU HAVE MADE THE RIGHT 
DECISION":GOTO 20 
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0*500 FOR DD= 1 TO 3000 : NEXT : PR I NT " !T 

q 51 q p n r >5 q q 8 0... 0 * p n k f 5 3 2 81 , 11 

8520 PRINT TAB(15) "SFRREWELL" : REM BL 

oqqq Of|!<p q.qqqq: ; 1 q 

3540 POKE 54277,17 * POKE 54273:130 

8550 POKE 54278,33 

3580 POKE 54273,1 : POKE 54272,205 

8585 FOR.BB~1 TO 508 : HEXT^ BE 

8570 POKE 54276,O'P0KE54277,8 : POKE 54278,6 

3575 FOP rrn-l jn 33 : HFNT BE 

3580 T^T-J-1 7 IF T<6~ THEN GOT6 8540 

3530 T~8•GOTO 8530 

g 5 g g p 0 !< f 5 4 2 9 6, 15 

8 81 0 P 01< E 54277,24 • P 0 !< E 54278, 136 

862O P 0 !< E 54276,65 • P 0 K E 54275,4 : P 0 K E 54274,208 

8800 POKE 54373 : 33 • POKE 54373,337 

8840 FOR BB : “»1 TO 250: NEXT T\j\ 

8858 P0KE 54276,8 : PQKE 54277,8•P0KE 54278,0 

8880 RETURN 

3708 POKE 54238,15 

8718 P0KE 54277, 1.7 * PO!<F 54278, 17 

8720 P 0 K E 54278,38 

3730 POKE 54273,13 : POKE 54273 * 43 

8740 FOR BB~1 TO 158 : NEXT BE 

8750 POKE 54276,0 : POKE 54277,8-POKE 54278,8 

8789 FOR DB-l TO 5‘NEXT BE 

8779 T : ~T*M • IF T<6 THEN GOTO 8718 

3730 T-O : pFT! IpM 

3808 PR I NT " 23" ‘ POKE 53288,8 • POKE 53281,2 
3005 PR I NT '* : FOR BB~ 1 TO 48 : PRINT CHRT 

a 13); : NEXT 

90ig RSTEROIB ASTEROID #••••#### 

:REM BLACK 

3828 L=40 

303Ci FOP T~=1 TO L 

3040 print * * * * 

3050 IF (L-TXl THEN 9898 
9080 PR I NT TAB < L-T ) LEFTT <. AT, T > ; 

9070 FOR BB~1 TO 188 : NEXT 
9088 NEXT 
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9099 FOR T~1 TO 39 
910 0 P RIH T ' 1 1 ' 

9ii0 print ; 

9120 FOR TOD:-1 TO 100 : NEXT 
9130 NEXT 
9150 RETURN 
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GOLF 64 STYLE 


Now here is your chance to try your golfing skills on the Commodore 
64’s computerised golf course. This is the perfect way to play golf, no 
wind or rain to spoil the play. 

It is a game which will require you to choose the right club (to hit the ball 
with not to join!), then hit the ball straight and hard at the green. The 
object, of course, is to finish the game under par. 

The computer will tell you the distance to the green at each hole and 
after each stroke will give you a tally of the total number of strokes you 
have taken, the number of strokes for the current hole and the par for 
the course. 

When you get to within 20 yards (18 metres) of the hole you are 
considered to be on the green. The Commodore 64 will then putt out 
for you and tell you the result. 

You have a choice of eight clubs, club number 8 giving you the 
greatest distance. Line 210 asks you which club you wish to use. Line 
240 works out how far you have hit the ball. 

Line 90 works out the distance from the tee to the cup for each hole 
and the routine from line 320 to 360 putts for you. 

The hole course is controlled by the FOR/NEXT loop from line 70 to 
line 420. 

The subroutine from line 500 provides the sound effects. Variable E is 
the strokes taken for each hole, variable T the total number of strokes, 
Z is the number of putts taken and Q is the par figure. 

Golf 64 Style is another game which would be fun to experiment with. 
Using it as a basis for a Golf program, try adding new features, graphics for 
instance, drawing up a fairway showing where the ball has landed. You 
could also add a routine which would cause the ball to swing to the 
side. It would also be a good idea to add a more realistic putting 
feature. 
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10 REM GOLF- 64 STVLE 

28 POKE 53280,13:POKE 53281,5 

30 REM "M" IS DOWN CURSOR 

50 Q--0 ■' T=0 

70 FOR H=1 TO IS 

80 E ::: 0 

90 D* I NT ( 4O0*RND ( 1) ) + 1 ©0 
10 0 i:i•- 0 +1N T D ,■■■' 7 0+ii 5 ) 

110 PRINT "T ; REM CLEAR SCREEN 

120 PRINT TAB(10) "I’SiffFH18 IS HOLE : 11 ; H •' REM RED 

138 PRINT TAB(5) "3KWNUMBER OF STROKES SO FAR: 

M ;T:REM BLUE 


140 PRINT 


TAB <8 


GRRV 1 


'WAR AFTER THIS HOLEQ:REM 


160 IF E>8 THEN PRINT TABOO) " atsflSTROKES TAKEN: 

"E : REM WHITE 

170 PRINT TAB02) " HMD ISTANCED : REM VELLOW 
190 IF D-0 THEN GOTO 390 
208 IF D<20 THEN GOTO 320 

210 PRINT TAB(3) "1MWHICH CLUB WILL VOU USE (1-8) 


! i 


REM BLACK 


220 INPUT C 

230 IF CC1 OR 08 THEN GOTO 210 
240 R=INT(0*20#(RND(1)+.5)) 

250 GOSUB 500 

260 PRINT TABOO "flWVOU HIT MR, 
280 D=AES< D-R) 

298 E=E+1 


"VARDS" 


REM RED 


295 T~~T + 1 

300 FOR DD=1 TO 3O0G:NEXT DD 
310 GOTO 110 

328 PRINT TAB(8) "SWr'OU ARE ON THE GREEN" = REM BLUE 
340 FOR DD*1 TO 3000 : NEXT DD 
350 2=INT(D/S)+i 

360 PRINT TAB(10) "■XWOU TOOK";2;"PUTTS":REM BLACK 
380 E=E+2 
398 T=T+2 

400 PRINT TAB(9) " sMNUMBER OF STROKES":E:REM WHITE 
410 FOR BD=i TO 2500:NEXT BD 
420 NEXT H 


65 




425 PRINT "IT :POKE 53280,5 TOK 
430 PRINT TREGO) "iMs.MslsiWr’OUR 


: 53281,13 
SCORE IS";T 


BLACK 

440 PRINT TRE<4) "MSTHE PAR* FOR THIS COURSE WAS 
458 PRINT THE(3) "MWBO VOU WANT ANOTHER ROUND’ 


468 INPUT AT 

470 IF A$ : ~"N" THEN END 

480 RUN 

500 POKE 54236,15 

510 POKE 54277,17-POKE 54278,17 

520 POKE 54276,17 

540 POKE 54273,12-POKE 54272,216 

545 FOR DD--1 TO 50 = NEXT DD 

550 POKE 54277,0:POKE 54273,0:POKE 54276,0 

560 RETURN 


Q 
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ELITE GRAMOPHONE 
COMPANY 


Your computer has the ability to set up and manage a large number of 
variables. The uses of this amazing capability are only limited by your 
imagination. The “Elite Gramophone Company” demonstrates just 
how effectively your computer can handle simulated information, 
manipulating it according to ground rules laid down by the programmer. 

This program allows you to experience the excitement and despair of 
running a factory in a harsh economic environment. 

The computer will provide you with a weekly balance sheet. This will 
contain all the information you require, such as the current week of 
trading, capital on hand, stock on hand, the number of employees you 
have and their estimated productivity. 

You must keep a close watch on the amount of capital you have on 
hand in order that you will be able to meet your production costs and 
weekly wages bill. This may be the key to your success or failure as a 
factory manager. The computer will give you the opportunity to hire 
and fire staff as the need arises, but you may find that the workers have 
a strong union if you try to put off too many of them. 

You will be able to set weekly production targets (within the limits of 
your available capital and the productivity of your workers). Then you 
have the agonising wait for the sales figures. 

At various times you will have to cope with union demands for higher 
wages, suppliers putting up the price of raw materials and the 
occasional disaster. There will be opportunities to raise the price of 
your gramophones but you must be careful. Don’t price them right out 
of the market-place. 

The object of the game is firstly to avoid the shame of bankruptcy and 
hopefully to go on to make a million dollars. 

The program listing is quite long but playing it will reward the patience 
required to type it in. 
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The program consists of a control section, from lines 50 to 150, which 
calls up the relevant subroutines when they are required. 

Line 30 calls up the subroutine which gives the title and sound at the 
start of the game. Line 40 calls up the routine beginning at line 1500. 
This subroutine sets up all the variables and parameters for the game. 

Line 50 is the start of the game proper. This line increments the 
variable WE which counts the weeks. 

GOSUB 950 in the next line provides the print out of the factory’s 
status. This is called up at several points during the game to keep you 
up to date on what is happening. 

GOSUB 1220 controls the hiring and firing of staff, plus any union 
reaction to your efforts to cut down on your work force. 

GOSUB 1100 is your production line. It allows you to set a production 
target and then works out how many gramaphones were actually 
produced. 

GOSU B 790 is your sales team. This routine provides the good news or 
the bad news about the current week’s sales. The sales figures can 
include gramophones from your warehouse as well as the week’s 
production. Any unsold gramophones are automatically placed in 
storage. 

GOSUB 360 controls the “unpredictables”. These nasty little events 
include price rises for raw materials and union demandsfor higher pay. 
Not to mention the possibility of a warehouse fire. 


10 REM ELITE GRAMOPHONE COMPANY 

28 PRINT "□" : REM CLEAR SCREEN "M" IS DOWN CURSOR 

30 GOSUB 178 

40 GOSUB 1500 

50 WE=WE+1 

68 GOSUB 950 

70 GOSUB 1220 

80 PRINT "T 

90 GOSUB 950 

100 GOSUB 1100 

110 GOSUB 958 
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128 G08UB 790 
130 GOSUB 360 
140 CA=CA-1 NT < WG#WF) 

150 GOTO 50 
170 PRINT "IT 

130 POKE 53280,3:POKE 53281,14 
190 PRINT 

200 print "Mm***** elite gramophone. coriPANv 

WOT':REM RED RIGHTCRSR L.T BLUE 
210 FOR BB~1 TO 500:NEXT DD 
220 POKE 53280,0:POKE 53281,3 
238 GOSUB 2208 

240 FOR BB=0 TO 15:POKE 53280,DD 
250 FOR TT=1 TO 200:NEXT TT 
260 NEXT DD 
270 PRINT "IT 

280 POKE 53280,6:POKE 53281,2 
290 RETURN 

360 REM UNPREBICTABLES 
370 PRINT "IT 

380 IF RND(1)>0.45 THEN GOTO 460 
390 A^INTa0*RNBa>> + i 
395 GOSUB 2000 

400 PRINT "MKWWM" TAB<2> "UNIONS DEMAND fl";A;"X 
PRV INCREASE" 

410 WG=INT(100* <WG+(A*WG/100)> >/100 
420 GOSUB 1620 

430 PRINT "IS" TAB(2) "PAY PER EMPLOYEE IS HOW $";WG 
440 GOSUB 1620 
450 PRINT "IT 

460 IF RNDC1K0.80 GOTO 560 
470 GOSUB 2000 

475 PRINT "XWKWM" TAB(14) "FIRE DESTROYS SOME OF 
YOUR STOCK" 

480 PRINT "IS" TAB<6> "STANDBY FOR DAMAGE REPORT..." 

490 GOSUB 1620 

500 A=INT(SK/2*RND(1> *2) +1 

505 IF A>SK THEN GOTO 500 

510 SK-SK-A 

520 PRINT "IT': REM CLEAR SCREEN 
525 PRINT "St!MSS" TAB<4> "THERE WERE";A;"' 
GRAMOPHONES DESTROYED" 
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"VALUE OF STOCK DESTROYED WA 


527 PRINT "M" TAB(4::' 

$" A*SP 

530 GOSUB 1626 
540 PRINT "M" TAB-: 4!:'. "STOCK ON HAND IS NON"; SK 
550 GOSUB 1620 

560 IF RND(1)>0.3 THEN GOTO 670 
565 PRINT "IT: GOSUB 2000 

570 PRINT "M0KWM" TAB<4) "SUPPLIER ANNOUNCES 
PRICE RISE" 

585 GOSUB 1628 

590 A* I NT < 100*C"IY7*RND '• 1 > > X10O 
595 IF A<„01 THEN GOTO 590 
610 PRINT "JP" TAB(2) "THE COST OF MAKING 
GRAMOPHONES HAS" 

620 PRINT " W TAB(2) "GONE UP BY $":A;"EACH" 

630 FOR DD=1 TO 1000:NEXT DD 
640 CT-CT+A 

650 PRINT "W" TAB(2) "IT NON COSTS $";CT:"Tn MAKF 


EACH ONE" 


660 GGSI !B 1620 

670 IF RND(1)<0.65 AND MPCSP THEN RETURN 


688 PRINT "□" 

685 GOSUB 2000 

690 PRINT TAB(2) 


"YOU HAVE AH OPPORTUNITY 


TO RAISE YOUR" 

692 PRINT "M" TABUS) "PRICE" 

695 PRINT "M" TAB(2) "GRAMOPHONES NON SELL FOR 
$";SP 

700 GOSUB 1620 

710 PRINT "M" TAB(2) "STATE THE PERCENTAGE OF 
YOUR PRICE" 

715 PRINT "M" TAB(14) "INCREASE"; 

720 INPUT A 

730 IF A>0 THEN Z=2+A 

740 SP~INT <1GO* < SP+A*8PX190))X100 

750 GOSUB 1620 

760 PRINT "T:PRINT "MMMMM" TAB 1 '4) "GRAMAPHONES 
NON SELL FOR $";SP 
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77Pi GOSUB 1630 
730 RETURN 

799 REM SRL.E 

800 PRINT "M" TAB(4) "STOCK ON HAND IS: 
810 GOSUB 1638 

820 PRINT 
825 G'OSUB 2000 

830 PRINT "MMMMM" TAB OS > "STANDBY FOR S 
848 GOSUB 1620 

850 PRINT "IT':FOR DD=1 TO 1000:NEXT DD 
860 R=INT < RNB<1> #SK/<ZX1 m )) +1 
870 IF A>SK THEN GOTO 860 
880 GOSUB 2000 

890 PRINT "MW" TAB(4> "TOTAL GRAMOPHONE 


<: 


:!< 


ALES REPORT 


SOLD,, 


li 


FOR DD=1 TO 1000:NEXT:PRINT A 


900 SK~SK-~A 

918 PRINT "MM" TAB(4) "INCOME FROM SALES: $";fl#SP 
920 CA~Cfl+INT(A#SP) 

930 GOSUB 1620 
946 RETURN 
950 REM PRINTOUT 
960 PRINT "23" 

970 IF CA+SKC1 THEN GOTO 1370 
988 IF CA+S0999999 THEN GOTO 1640 
985 GOSIIB 2000 

990 PRINT TAB(8) "OFACTORV REPORT: WEEK";WE = REM 
LIGHT BLUE 

1080 PRINT "MCflPITAL OH HAND IS T";CA 

1010 PRINT "MSTOCK ON HAND";SK;"GRAMOPHONES 1 

1015 PRINT "MWORTH $";SK#SP 

1020 PRINT "MTHEV SELL FOR t";SP;"EACH" 

1830 PRINT "MANB COST T";CT;"EACH TO MAKE" 

1048 PRINT " ^WORKFORCE IS"JWF;"PEOPLE" 

1050 PRINT "MTHEIR WAGES ARE T";WO;"EACH" 

1060 PRINT "MTHIS WEEKS WAGES BILL IS $";WG*WF 
1070 PRINT "BEACH PERSON CAN MAKE";PD;"GRAMOPHONES" 
1880 PRINT "MR TOTAL OUTPUT OF";PD#WF;"GRAMOPHONES 
1090 RETURN 

1100 PRINT "MHOW MANY GRAMOPHONES DO YOU WISH TO 
MAKE" 

1105 INPUT MK 

1110 IF MK=0 THEN RETURN 
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1128 IF MK#CT>CA THEN PRINT "JJNOT ENOUGH CAPITAL 
TO MAKE THAT MANV":GOTO 1100 
1130 IF MK>PD#WF THEN PRINT "WOT ENOUGH WORKERS 
TO MAKE THAT MANV":GOTO 1100 
1146 PRINT "IT :PRINT "MSMKM" TAEC3) "PRODUCTION 
TARGET FOR WEEK";WE;"IS";MK; 


1150 MK*ABS<MK-<INT<RND(1)#2+1>)* INT C RND C1}*10)> 

1169 GOSUE 1628 

1170 PRINT:PRINT "jjp TAB<6> "TOTAL MADE IN WEEK" 


WE;"WAS";MK 


1180 SK-SK+MK 

1190 CA=INT(CA-CT^MK) 

1200 GOSUE 1620 
1210 RETURN 
1220 REM PEOPLE 

1230 PRINT "*HOW MANV PEOPLE DO VOU WISH TO HIRE" 
1235 INPUT A 
1240 WF=WF+A 

1250 PRINT : PRINT "WBWWWI" TAE(6> "TOTAL 
WORKFORCE IS NOW";WF 


1260 GOSUE 1630 

1270 IF AO0 THEN GOTO 1350 

1280 PRINT "SHOW MANV PEOPLE DO VOU WISH TO FIRE": 
1285 INPUT A 

1290 IF A”0 THEN GOTO 1350 
1300 IF A>WF THEN GOTO 1230 
1318 A=INT(RND ( 1># A+1) 

1320 GOSUE 1680 

1330 PRINT "IpSTHE UNION WILL ONLV ALLOW VOU TO 
FIRE";A 


1340 WF=WF~A 
1350 GOSUE 1630 
1360 RETURN 
1370 REM EANKRUPTCV 
1330 L~@ 

1385 GOSUE 2000 

1390 PRINT "21": PRINT :REM CLEAR SCREEN 

HOME DOWN CURSOR 
1392 POKE 53280.. 2: POKE 53281,0 
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1395 PRINT TRB(10) "*#### BANKRUPT #####":FOR 
DD=1 TO 750:NEXT 10 : REM YELLOW 


1490 L.-L+1 : IF L-10 THEN GOTO 1438 

1405 POKE 5328 1,2 - POKE 53280,0: FOR r®=l JO 500: NEXT 

1410 goto i39fi 

1430 PRINT "El" : G08UB 1620 

1440 PRINT "MMWr'OU KEPT THE ELITE GRAMOPHONE 


COMPAHV" 

1445 PRINT "^RUNNING FOR";WE;"WEEKS":FOR BB=1 TO 
5090:NEXT DD * 

1450 PR I NT "21" : PR I NT " j?l" TAB <. 4 > " BO VOU WANT T0 
. TRY’AGAIN (V/N)" 


1460 GET fi$:IF A$="" THEN 1468 
1478 IF Af="V" THEN PUN 

1498 PRINT "El": PR I NT "MiMbMpMN" TAB (16) "GOODBYE" 

1495 GOTO 1495 

1508 REM VARIABLES 

1518 CR=508+1 NT (580*RNB < 1 > > +1 

1528 SK=100+1NT < 508$RND<1> > +1 

15:38 8P= 10+1 NT (5&RNB (1) > +1 

1540 CT-2+1NT <5*RNB < 1>) +1 

1550 IF CT>SP THEN GOTO 1530 

1568 WF=7+1NT(10#RND(1)> +1 

1570 WG=12+INT(RNB < 1)*CSP*5)) 

1580 PB=5+1NT <5*RNB<1)> +1 
1598 WK-1 
1680 2=1 
1610 RETURN 

1620 FOR BB=1 TO 2580:NEXT BB : RETURN 
1630 FOR DD-1 TO 1588 ; NEXT DD : RETURN 
1640 C=0 

1650 PRINT "El": PR I NT :REM CLEAR SCREEN 

HOME DOWN CURSOR 


1653 

1655 


POKE 53280,2:POKE 53281,4 

PRINT TAB(3) ":»$$$$ YOU'VE MADE A MILLION 


$$$$$":REM WHITE 


1668 C : "C+1 

1670 GOSUB 2800:FOR DD=1 TO 200:NEXT DD 

1680 PRINT 

1698 PRINT TRBC3) 

$$$$":FOR DD=1 TO 250:NEXT r® 
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END 

a 

)> +100 


2920 

PGk'F 

54 


3& > 

15 




3030 

POKE 

= .■! 

■j 'i’ 


i r 

f-,4 * 

PO 

KE 54273, 

130 

204@ 

POKE 

54 

2 

L.„ 

76.' 

17 




2050 

POKE 

54 

2 

70 

PI : 

pp 

iKE 54272, 

. R2 

2060 

FOR 

BB= 

i 

’ TO 

•~«nr 

0 : 

NEXT BB 


2070 

POKE 

54 

2 

76, 

0: P 

OK 

F 34237,f 

3:POKE 54278 ,0 

2080 

RETURN 







2200 

POKE 

54 

2 

8 f~*» i 

15: 

R~ 

: 54277: 3=54278: W=54276 

221 fi 

POKE 

R, 

i 

36 : 

PQK 

F 

8,1 30 


2222 

POKE 

l,J , 

i 

o 





2230 

i-!F=5 

427 

•'j 

: LF 

=54 

c. r 

'0 


2248 

POKE 

HF 

t 

1-4: 

POK 

E 

! F . 1 07 


2208 

FGfT 

DC" 

i 

TO 

•“ter 

0 : 

NEXT BB 


226U 

POKE 

!•'•! , 

0 

: POKE 

O 

0:POKE R, 

■ 0 

2265 

FOR ~ 

BB= 

i 

TO 

20 

M 

(EXT BB 


2270 

POKE 

p, 

i 

5 : P 

OKE 

8 

i, 20 : POKE 

!4,123- 

2280 

POKE 

HF 

, 

12: 

POK 

F 

! F ■ 216 


2290 

for”' 

BB- 

1 

TO 

-7 nr 

• -J 

’ 7 H 

IEXT BB 


2309 

POKE 

W, 

@ 

:F'6 

KE 

R, 

0 : POKE 3, 

0 

2305 

T=T+ 

i 







2310 

FOR 

BB~ 

1 . 

Tn 

200 : 

NEXT BB 


2320 

tit t 

j. > < 

=4 

T 

HEN 

T~- 

t.Tj ; 

RETURN 



2330 GOTO 2200 
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Excitement will grip you the moment you put 
thefirst of these games up on your screen. 
William Roberts has devised the programs in 
Challenging Games for the Commodore 64 
with a great sense of entertainment 
and stimulation. 

Enemy-blasters, outwit-the-computers, 
shoot-outs — they’re all here!So boot the 
system and start the fun. 



Another great book from INTERFACE PUBLICATIONS 

ISBN 0 907563 48 1 



